AWESOME GAMES 

FOR YOUR 
ATARI COMPUTER 

HAL RENKO/SAM EDWARDS 





... 



'^•aurt*^' 



Awesome GAMES for your 
ATARI computer 



Awesome GAMES for your 
ATARI computer 

Hal Renko and Sam Edwards 



▼ T 

ADDISON-WESLEY PUBLISHING COMPANY 

Reading, Massachusetts • Menlo Park, California 
London • Amsterdam • Don Mills, Ontario • Sydney 



® 1984 Addison-Wesley Publishers Limited 

All rights reserved. No part of this publication may be reproduced, stored in a 
retrieval system, or transmitted in any form or by any means, electronic, 
mechanical, photocopying, recording or otherwise, without prior written 
permission of the publisher. 

The programs presented in this book have been included for their entertainment 
value. They have been tested with care but are not guaranteed for any particular 
purpose. The publisher does not offer any warranties or representations, nor 
does it accept any liabilities with respect to the programs. 

Atari is a trademark of Atari Inc. 

Cover design by Stuart Hughes 
Illustrations by Agnes Lehar-Graham 

Typeset by Blackmore Press, Shaftesbury 

Printed in Finland by Werner Soderstrom Osakeyhtio, Member of Finnprint 

ABCDE 8987654 201 16477 9 



Contents 



Zombies in the swamp 


1 


Galactic Monsters 


6 


Keyboard Memory 


10 


Las Vegas a Go Go 


13 


Parrot 


22 


Kentucky Derby 


25 


Rainbow Square Dance 


30 


Qui Vive 


34 


STM 


46 


One to Five 


49 


Escher 


53 


Genius at Work 


59 


Shark Hunt 


63 


Shakespeararian Shuffle 


68 


Explosion 


72 


New York, New York 


78 


Key 


82 


Black Box 


86 


Treasure Hunt 


90 


I.T.— The Adventure of the Century 


95 


The Wolf and the Five Little Goats 


109 


Spring 


114 


Apollo 2000 


116 


At the Market 


124 


Fallout 


126 


Ship's Attack 


131 


Mini Mancala 


135 


Stop It! 


140 



The Swedish Popsong 143 

Vowels and Consonants 146 

Astrology 149 



Because the ATARI printer can't print graphic characters and reverse video, 
the following codes are used in the listings: 

Text between § are in reverse video. 

Text between [ ] should be entered while holding down the control key. 

Text between <^ ^-indicate a special key e.g. <Cj3HIFT^> means press shift 
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Introduction 



Everybody knows that computers are used for all kinds of serious purposes — 
financial calculations, business applications and text processing, for instance. 
They can, however, help us in another way. As the proverb says 'All work and 
no play makes Jack a dull boy' and it's certainly true that we all need some- 
thing to keep the cogwheels of our mind turning when we are not considering 
the 'important' things in life. So we read books, do hobbies, and play games. 

Bruegel's wonderful painting 'Children at Play' shows us that this has been 
true for centuries, if not forever. 

This book aims to provide something for everybody from 6 to 96. There 
are games to play on your own, and others to play with your family and 
friends. You will find fast action games to test your reflexes and your ability to 
control many moving objects on the screen; puzzles and brainteasers to get you 
thinking; board games where you pit your wits against the computer; and, of 
course, some wonderful arcade-type games which combine aspects of all of 
these. There are also some very intriguing games which are in a class of their 
own. 

A number of the games have been devised to give interesting and worth- 
while results from relatively short listings that will not take much time to enter. 

Looking again at 'Children at Play' a thought springs to mind. If Bruegel 
were alive today, would his painting look something like this . . . 



Zombies in the Swamp 

Watch out! There are zombies about, and you have to cross the swamp where 
they live. To do this you must walk across on rafts. 
At the start of the game the swamp looks like this: 

WAY OUT 
t 



SWAMP 



t 



here you are, 
standing on a raft 

You are at one corner, and you must reach the diagonally opposite corner to 
escape. To put a raft next to the one you are standing on, enter T and the 
computer asks 

THROW TO THE? 

Enter N for north, S for south, E for east, or W for west, and a raft will appear 
in the appropriate position (north is at the top of the screen). To move, enter M 
and the computer will ask 



MOVE TO THE? 



Again, enter N, S, E, or W as appropriate, to step onto the raft. 

So far so good, but beware! From time to time one of those zombies will 
emerge from the swamp and run across the rafts you have positioned. If you 
are in its way it will catch you. Luckily, zombies can't see very well so they 
often fall off the rafts back into the swamp. 

To succeed in this exciting game you must develop your own strategy. The 
longer and more complicated your path the less likely the zombies are to catch 
you, but, on the other hand, it will take you longer to get across the swamp, 
giving time for more zombies to appear. 

Oh no! Here come those terrifying zombies again. You had better just 
hope they don't catch you. 

1(3 REfi ??### .i'oiTit. i es m (he swamp #### 

28 1 Pi SHf ? , a .:■ , CM i j , C$$< 4 ), ) $(. 3 ) 

M Din PL$i3>sl0mij.fLff.iJ f BL¥'-3) 

48 OPLN #2,4,W,"Ki " 

50 WRHF , HlCa v 4-7 

68 SOTO 1888 

93 REi'l w## i nit laiize ### 

1 88 PL*= " il't.JJJje " : Z0*= " f###6 " 



118 


BL*=" ":FL?= ■'..." 


128 


FOR C=8 10 ? 


1 38 


8H< 8 , .:■=- 1 : SW< C , '■'=- 1 


148 


SW . ; ' , C >=- 1 : oH< C , 8 >=- 1 


158 


NEST C 


1 £0 


St* ? , 8 .:■=- 1 : Sue , a >=- 1 


178 


SHC8,1 .5=1 :SN'; 1,8 j=l 


188 


FOR R=l 10 6: FOR C=l TO 7 


198 


St* R, 0=8! NEXT CSNEX1 R 


288 


F'K=6 : PV=? : SW< 6 ,?:■=! 


218 


X=8 : V=?: T*=PLSs SOSUB 1 788 


228 


RETURN 


239 


Rbf'l ### 9et command ### 


388 


SET #2,0: C*=CHR$< c > 


318 


FOR 1=1 TO LEN<CS$) 


326 


IF C*=CSS(I,I) THEN RETURN 



338 NEXT I: SOTO 308 

339 REM ### GET direction ### 
4@0 CS'$="NESw":GOSUB 380 

4 1 DK=C I =2 >-{ I =4 '} '■ DV=i. 1 =3 >-<■ . 1 = 1 J 

420 X-PX+Gx: V=PV+OV 

430 IF SM<PX+OX,PV+DVX >-l THEN RETURN 

440 POSITION 0#23 

450 ? #8 ; " i fflposs i b 1 e-TRV R6A IN"; 

460 POP : GOTO 520 

489 REf'l #*# execute command ### 

500 POSITION 0,23 

510 ? #6;" ??? "; 

520 CS$= " T I'i " : 60SU8 300 

530 UN i GOTO 608*700 

593 REI'i ### throw ### 

600 POSITION 0#23 

618 '? #6; "THROW TO THE ? "i 

£20 GOSUB 400:SWc:X,t.j=1 

630 IF X¥V>0 THEN T*=Fl_*!SQSU6 1?08 

640 RETURN 

639 REJ1 ### move ##* 



\^>-~M 




788 POSITION 0,23 

7i8 ? #6;"flQUE TO I'HE ? "; 

7'20 SOSUB 488:i_X=X:LY=V 

730 IF SH(X#VX>1 THEN POSITION 0,22:? # 

b;"inf,n the SUiampCfiHLJ HGRIN ? " 

;!80T0 i2aa 

740 IF X=8 OR V=0 THEN POSITION 0,22:? # 

Si "you made ittHf-O, A6AIN ? ":6 

GTO 1200 

750 X=PX:V=PY:T$=FL3;: GOSUB 1700 

760 PX=sLX:PV=LV 

770 X=LX : V=L V : T$=PL* : GOSUB 1 788 

788 RETURN 

799 REfi choose zombie's direction ### 

888 ON RND<8)$2+8.5 GOSUB 1300,1400 

810 IF SH<:2X+DX,2V+GVKl THEN 900 

820 IF SW<;ZX+BV,2t-DX>=1 OR SNi2X-DV,2V+ 

DX>=1 THEN 1000 

830 RETURN 

893 REl'l ### swamp ahead ###_ 

900 ON RNK 03*4+0. 5 GOSUB 1380,1400,1500 

,1600 

910 IF SW<2X+0X,2V+0V>=-1 THEN 900 

920 RETURN 

333 REi'l ### possible move ### 

1 008 LX=DX : l_V=DV 

1018 ON RNO<0.J*4+0.5 SOSUB 1380,1488,150 

8,1608 

1020 IF DX=-LX HND DV=-LV OR SW<2X+GX,2V 

+OVX1 THEN DX=LX:DV=LV 

1030 RETURN 

1833 REri ### zombie's turn ### 

1100 2X=6:2t=7:S0T0 1180 

1110 IF 2X=F'X HND 2V=PV THEN POSITION 8, 

22:? #8; "you have just been eatenLNHLJ 

HGHIN ?"#:60T0 1288 

1128 GOSUB 888 

1130 T*=FL$! GOSUB 1700 

1148 2X=2X+DX:2V=2V+DV 

1150 IF SN< ZX,2V >=8 THEN SW<2X,2V)=-1 :PO 

SITION 322X-2,3*2V-2:? #8i " @M "i RETURN 

1168 X=2X:V=2V:T$=20$: GOSUB 1788 

1178 SOTO 1118 



199 REfl ### again #*# 

288 POKE 764#225!6E1 #2#X 

218 IF X=89 THEN RUN 

228 GRAPHICS 8: END 

388 DX=0!OV=-l! RETURN :REI'I north 

488 DX=-1 5 DV=8: RETURN :REI'i roest 

588 L«=8:DV=l: RETURN SREfi south 

688 Dfi=i:DV=8: RETURN :REfl east 

699 REfl ### print field ### 

788 FOR 1=8 TU 2 

, ? 18 POSI TION XSS-SvfSS-S+l:? #6;TS 

?2U NEXT I: RETURN 

?99 REfl ##### mam program ##### 

888 SOSUB 188: REfl initialize # 

8l@ SOSUB 588: REfl player # 

g20 T i i=TU+ 1 : 1 F RNEK 8 m PX+PV ;■ >3 OR TU< t 

THEN 1818 

838 SOSUB 11 88: REfl zombies # 

84U SO TO 1818 



Galactic Monsters 



There it is, registering on the x-y-Gz radar. At last, you are approaching the 
Milky Way. In just 2.56 protoseconds you will be safe in your home galaxy! 
But there is danger here, and as captain of your ship, you know very well 
what it is. You keep a watchful eye on the XR6-screen. No alert yet. The 
tension is unbearable ... 2.5 protoseconds . . . 2.0 protoseconds ... 1.5 
protoseconds ... oh no! There it is — 

THE VAN ALLEN SQUARE STONE BELT 

There are a number of these notorious belts, and in them lurk the dreaded 
Galactic monsters. No weapon can defend you against these vengeful creatures; 
all you can do is avoid them. 

Once the program is started and you see a VAN ALLEN SQUARE 
STONE BELT then you can move yourself by pressing: 

- to move one SQUARE upward 

+ to move one SQUARE to the left 

* to move one SQUARE to the right 

= to move one SQUARE downward 

Those terrible Galactic monsters will approach closer and closer. Your only 
hope for survival is to avoid them! If you cross a VAN ALLEN SQUARE 
STONE BELT a second time, the monsters will become more aggressive. Some- 
how, they seem to anticipate your every move. If they manage to attack you 
five times, you and your ship are totally destroyed. 

Good luck, captain . . . only a few protoseconds to go, and you are home 
free! 

6 




la Kfci'l ####### L-iaiacT, ic [lonsters ####«## 
20 Dill Kt 11 },t\ ii ;',si ikx a#i ) 

JW UPhN *2*4#0#"K" 
4t1 MW'HiCS lb 

58 GOTO ayy 

hh REPI ff## initialize ### 

100 FOR 1=0 fQ a 

110 REfiQ K,V8S1 IK< l *".)=;<;: Si 1K<I #1 J=V 

120 Ntxi i 



130 OffTU i«i*i*-l*l«u.»u»<a»-l«i 

140 DATA -l*-lr-lrQr&r&r&rl*&r-l 

1 58 '? *6#" galactic monsters" 

lbO RETURN 

1 39 REri #ff# player's move ### 

200 SOUND &r 20 * 1 p 1 5 

210 KEY=STTCK':0 >: IF KEYOlS THEN DX=STIK 

( KEv-j,0>:Dv=Si IK';kEV-5,1 >:<S3TU 290 

220 IF PEEkc i : '64 :'=2'55 THEN 340 

230 GET #2,KEv:DK=o:DV=0 

240 IF K.Et=42 THEN DX=lSGUTO 290 

250 IF KEY=43 THEN DX=-1:GUT0 290 

260 IF KEV=45 (HEN LiV=-i:6UfU 290 

2?0 IF KEY=6i THEN Dv= 1:8010 29o 

280 SOTO 340 

290 IF HfcSc lO-xP-Dk>>5 THEN 0x=O 

300 IF HBS< 6-VP-DV »5 THEN DV=0 

310 T'OKN=TORN+1 

320 POSITION XFVt'P:? #bi"#"i 

330 XP=XP+D?<: tF-VP+UV 

340 POSITION XP,¥P!? #bi"t'L.JJi2"i 

350 SOUND OjO^OjO 

360 RETURN 

399 REl'i ##t move galactic monsters ### 

400 FOR T=0 TO 10 

410 POS I T I ON H< '(' > * V< T > s ? #6 ; '• # " i 

420 IF RNTXOHPR THEN GGSoB 500:6010 440 

430 G0S06 600 

440 POS IT 1 ON ?« T .:■ > 'A T .) : ' f #8 ; " EC J " i 

450 NEftl 1 

460 RETURN 

499 REl'l ffffff move monster to player »## 

500 IF RNLK ;>.>0. o THEN HX T ;-=X(. "I HS6NX ; : \P- 
K<T)>s RETURN 

5io Yt T.j=v< T >+S6N'; VP- v ■; I >>i RETURN 

599 REH ### move monster random ### 

600 H= I NT X RNEK >#4 ) 

6io ;« T . >=?& T >+< h=o AND K< T X 15 )-< fl=l hnD 

X( I J.>5i.) 

62o vi T >=YX I ;■+'; h=2 hnD y< T x 1 1 >-< h=3 hno 
yX i >>\ .) 

630 RETURN 

8 



699 hEiI #»* eaten oy monster ? ### 

i ; 'tia FOR 1=0 To i ti 

?l a If ?;K >h i ;■ OR Vf > «>V<T) MEN . : 'yu 

,-'20 K=K+i: 1=10 

r'38 SOUND 8*288* 18* 15s SOUND 1*280*8*15 

i"4a bOSUB yoo 

?'50 SOUND 8*248* 18* 15* SOUND 1*248*8*15 

f'6y SOSUB Soy 

," ?0 SOUND 8*8*8*0! SOUND 1*8*8*0 

?yy NEXf "i 

Cyy RETURN 

,-yy REi'l ### waiT. ### 

B08 FOR H=8 TO 180! NEXT H! RETURN 

899 REi'l *#fl## main program trittrtttf 

SOS GOSUS 1805 REO initialize # 

918 FOR 1=1 )o n 

32o POSH" i On 5*Ts? ffbj " ttffff ffffittirttirff u j 

350 nEk'i i 

340 SCORE=SCORE+hP- i 0RN-5#K 

350 HP=WP+2u:TORN=o:PR=PR+0. 1 

yyo xP=io:VP=i:POSi Hon xPj.tP:? »t;i"iiCoJ 



H,'t1 hUR 1=0 10 10 

980 ;« T .5=5+ i ': v; "i >=8 

S98 next i 

lOOO SOSoB 20o:Rbi'i player # 

1010 SOSUB ?oO:REl'l eaten ? # 

I020 IF KM ThEn iO?0 

ioSO if- vP=ii ThEn 910 

1040 S0SU6 400:R£T1 monsters # 

1050 fa'USuB ?'O0: REi'l eat-en ? # 

1000 if K<=4 THEN lOOO 

1070 POSITION 1*11 

1080 ? #6; "your gscoreg i=- "* SCORE 

1090 POSITION 8*0 

iiOO ? #S*"do you want again <ESOOQ''* 

11 10 POKE ( : K4,255:0ET #2,K.£Y 

ii20 If K.Ev=yy ThEn Ron 

1125 IP KEVO?S THEN 1110 

1130 IF K£V<>?8 ThEn mO 

1140 GRAPHICS 0:£nD 



Keyboard Memory 



This game uses the computer keyboard to test your memory. Eighteen of the 
keys each conceal a character, in the same way that a playing card, lying face 
down, hides its value. There are nine different characters, each hidden by two 
keys. 

The symbols of the keys you must concentrate on are shown on the screen. 

QWERTY 
A S D F G H 
Z X C V B N 

Press a key and the character it is hiding will be shown on the screen: press 
two, one after the other, and if they are both hiding the same character their 
symbols will disappear from the screen after you have pressed any other key. 
Your first few attempts will obviously be guesses but by memorizing the 
positions of the characters they show you should soon be able to work out 
where the pairs are. 



lfci Ktl'l :?::?::«*:?::* Keyboard fiemory :^?*«s- 

28 DIM KEV*< iy >,PIC$( 18>»K£VPIC*< 18), Kt* 

( 1 >*OSK< i,d> 

30 OPEN #2*4#8*"K: " 

+0 GRAPHICS 18: POKE 756*226 

50 SET COLOR 0,0,0 

yO 60 TO y00 

MS P.EI'1 initialize :?:;?::?: 

10 



iyy :" ffb;" gkeyboardg gmemoryg 

1 1 K.h V J— " qwer-T.yasd t ghzxc vt-n " 

120 PiC3="iK,, i i . . PPSSftRTTFFGGae" 

130 FOR KEV=1 TO 18 

1 4W PI Cn= J NTt i SsRNDt: «)+i) 

ISO IF PICSCPIC^PIODO 1 " " THEM 198 

168 PICN=F'1CN+1 

178 IF PICN>18 CHEN P1CN=PICN-18 

lay GOTO i58 

1 90 KtvPlUSt k£V*K£Y )=PIC#( PICN*P1CN ) 

2uU PIC$<PICNjiP1CN^=" " 

218 NEXT KE't': RETURN 

299 REi'l display Keys %%% 

308 FOR I=W TO 2: POSITION 4^2*1+4 

320 FOR J=l TO 6 

330 C=&l+Ji'r #8*KES>$<e*C>*" "; 

340 NEXT JsNEXT i: RETURN 

399 REl't input and snoai card t&% 

400 FOR NK'=8 TO l 

410 GET #2#KEVsKE*=CHR*<KEV+32) 

420 FOR 1=1 TO 18 

430 IF KE*=KE¥*(I*1 ') hnD c NK=8 OR lORSK 

<8*8>) THEN 490 

448 NEXT I 

450 POSITION 4j.11:' 7 " #b; , 'RwRONGii' li INPUTS" 

4S0 SOUND 8,208*1 8* 15S80SUB 700 

4?0 POSITION 4*11:? #£;" 

488 GU'iO 410 

490 BSKX Nk*2 >=2SIN f< < I-i V6 >+4 

500 ft3k< nk: , l >=2#< I -3*HSK< Nk. ,2 )+l 3 ) 

510 ftSK<NK*8)=I 

520 POSITION RSK<NK*l)*flSK<NK*2) 

530 ? #6,KEVPIC*<I*I? 

540 NEXT NK: RETURN 

599 REf'l check cards ?:;!.:?: 

eaa turn=turn+i 

6 1 K i =NSkA 8 * 8 >'• K2=flSK< l * ; 

628 IF KEVPIC*<K1*K1)<>KE*> J PIC*<K2*K2> TH 

EN SOUND 0* 100,10* 15: GOSuB ,'00: RETURN 

638 00nE=O0nE+1 

B48 KEV$ua*Ki ;■=" U :KEV$<K2*K2)=" " 
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658 SOUND 0,40, i 0,1 5 

660 bOSUB 7U0 

E.?a IF DQN£=9 THEN ? " Done in "iTURNi" 

turns !":SGUMJ 0,10,i0,i5:bOSU6 700: END 

680 RETURN 

699 REi'l wait &n 

?m FOR N=l TO 200: NEXT H 

710 SOUND 0,0,0,0 

?20 RETURN 

?'yy REi'i #&* main program %%% 

SO© SOSUB i 00: REf'i i n 1 1 i al i ze s 

810 bOSUB 300:REf'l display keys t 

920 8QSUB 400:REfl input and show % 

£G0 60SUB 600: REP) check Z 

940 GUTU 910 
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Las Vegas a Go Go 



Have you ever watched someone pumping coin after coin into a one-armed 
bandit, and found yourself wondering what the fascination was? You will soon 
find out when this program turns your computer into a fabulous Las Vegas- 
style fruit machine. All the playing instructions you need will appear on the 
screen. At certain points you will be presented with a list of options, for 
instance 

INSERT, HOLD, PLAY, OR END 

Enter your choice by typing the first letter of the option you want, for instance 
P keeps your machine playing. The reels are numbered 1, 2, and 3. If you want 
to hold one or more reels, type in the appropriate number or numbers after you 
have entered H. 

Lights will flash and music play as the wheels whiz around. Have you won 
this time? Never mind, you are sure to hit the jackpot sooner ... or later! 
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lti REi'i »*### Las vegas a 9090 ##### 
28 SETCOLOR 1 ,&,&i SETCOLOR 2,7,16 
38 SETCOLOR 4, 12,4: POKE 82,8: PUKE 752,1 
48 OPEN #2,4,8, "K: " 
58 GOTO 2988 

99 R£['i ### initialize ### 
188 REIi ## screen ## 
1 18 DL=PEEK< 568 )+256*PEEK< 561 )+3 
128 POKE DL,71:P0KE DL+3,6:P0KE UL+4,7 
138 POKE UL+5,6:P0KE UL+25,/ 
148 ? "<ESC><SHIFTXCLEflR>e* las vegas ; 
9090 *&<ESC>t=J<ESOE=3" 



158 ? 


" 




IMG 


GtJJ" 


168 ? 


H 




CHJG 


GtJ3" 


178 ? 
J" 

188 ? 


U 




CHJetQ0UE3 


CQUUOBCJ 


» 




CHJG G:EV3 1 


2ILV3 GCVjI 


era 


GLJJI 


gojg" 






188 ? 


" 




g mGtuujGi: 


uujeccj 


erne" 






288 ? 


" 




G CHUG GtJ3 


CHJG GLJJl 


CHJif 


iiljj 


e g f" 






218 ? 

6 fi" 


H 




g e g g 


G G G G 


220 ? 


« 




ecvijecja LHje gcjj ch 


as etjj ti-aeo-ae o 


.• g« 




238 ? 


H 




ecjj 


CHJG G 


G" 










240 ? 

1-'" 






gljj 


LHJG g 


250 ? 


•• 




e 


G" 


268 <• 


" 




g 1 




278 ? 


■• 




S 1 


8" 


288 T 


" 




li' 1 




298 ? 


•i 




G 1 


2" 


388 ? 


•• 




& 1 


■"' 


318 ? 


H 




DOB 


GCJJ" 


328 T 


" 




G 


G" 



338 REf'l *# text-strings *# 

348 Did B*t40:),Rl*< 1 ),IN*< 1 ) 

350 DIf'l S1«10>,S2*<18),S3*<10> 

368 REP1 ## wheel figures & values ## 
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3?£1 Dili (4F$<13,^R<2,13^U<4),HU<;3> 
380 FOR 0=1 TO 13 
530 REHD KlS-Kl^Ra-WF^U^Rl* 
408 R<0,U>=0:R<l,U>=Rl:R<;2,U>=fi2 
410 NEXT U 

420 DHlH H,0,0,K,0,0,G,0,0,d,0,k1,#,8,40 

430 DATA *.8,40,*,?,30,i:,:i,5,25,i:;:il,3,28 
440 DPJft E.J,3,20,CP3,2,10,ESJ,2,10,e,0, 



450 REfi ♦# gamble pos. i, values ## 

460 Din GP<4,1>,6U<4> 

4?0 FOR 1=1 TO 4: READ R1,R2 

480 6P< I,0>=R1:6P< 1,1 >=R2 

490 NEXT I 

500 DHTP, 33,3,35, 5, 33, ?,30,5 

510 REf1 ## holds, nohold ## 

520 OKI HF*<3),NH*<1):HF*=" ":NH*="e 8 

II 

530 REIT ## jokers ## 

540 DID JP<4>,JF*<4>,JCi;4; 

550 FOR J0=1 TO 4:JC<;JO;>=0 

560 REHO Rl,Rl*:JP<;JO>=Rl:JF*<:j0>=Rl* 

570 NEXT J0:NJ=4 

580 DHTH l5,a,i6,K,20,q,2l,j 






590 REIT ff# jackpot, ## 

800 Dili JBK 13 ) 

810 FOR 0=1 TO 13:JH<U>=0:nEXT 

820 jmS^lzJT-Ke^l: JfK7>=l 

830 REIT ## points ## 

640 POSITION 1,1:? "CREDIT :0"; 

650 POSITION 1,1 i:? " — 6 — = 1"; 
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668 FOR U=12 TO 5 STEP -1 

670 ? s? " -*iHF$<U,U)it*'$<U,U)i"- = ";R 

< i»y?i 

b88 POSITION 23,24-U:? HF*<U,U>jWF:r<U,U> 
iWF$< U,U>#" = "#R<2j.W)i 
690 IF .JH£.U> THEN ? "+J"; 
?m NEST U 
718 RETURN 

793 REfl ### wait ### 
888 FOR NW=i TO W:NEXT WW: RETURN 
839 REfl ### 9et input, print s3$ ### 
300 FOR W=8 TO 40 STEP 2 
318 SOUND 0»W#i0»UOL 

928 IF PEEK<784X>255 THEN GET #2, IN: IN* 
=CHR*< IN):P0SI I ION X,V:? S3**: SOUND 0*0* 
8,0! M=33i NEXT W:POP : RETURN 
930 NEXT W: RETURN 
399 REfl #»# blinK s-l*ys2* and get 
input and end with s3 ### 

1000 POSITION X,V:? Sl*i!60SUB 300 

1018 POSITION X,¥:? S2*;:60SUB 388 

1028 SOTO 1800 

1839 REIT ### add increment to money ### 

1108 FOR HD=S6N(IN> TO IN STEP SGN(IN) 

1110 SOUND 8,32l8-38.*SGN< IN>-2*flO,lS#i5 

1120 POSITION S,l:? i'iO+HD; 

1138 IF i'IO+HD<100 THEN ? " "j 

1148 FOR W=l TO S: SOUND 1,88-5*W,18,10 

1158 NEXT W: SOUND 1,8,8,8 

11S8 NEXT flD:f10=riO+IN: SOUND 8,8,8,8 

1178 RETURN 

U93 REI1 #«# remove double ##» 

1288 00=0: POSITION 26,0:? " "; 

1218 FOR J0=1 TO 4:P0SITI0N JP<;JO),S 

1228 ? JF*<JQ#JO>#!JCXJO>=0 

1238 NEXT JO :NU=4: RETURN 

i239 REIT ### print b* at bottom ### 

1380 POSITION 0,21:? "<ESC><SHIFT><EfHCK 

1310 POSITION INT<10-LEN<EJ*)/2>.,21 

1328 ? B**: RETURN 

1393 REfl ### Jackpot ### 
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1480 JH=l:JC=15: POSITION 9,11:? "O" 

1410 FOR TI=1 TO 10:POSITION 20,1 

1420 r "fJHL::e "i 

1430 POSITION 24*1 

1440 FOR 0=1 TO JC:? "J"i 

1450 SOUND O*150-10*TI-2*C*10*15 

1460 NEXT C:N£XT TIs SOUND 0*0*0*0 

1470 RETURN 

1499 R£f1 ### adapt, variables «#* 

1500 LW=<; NOT He>*WI:WI=0 

1510 FOR H0=1 TO 3:HF*<H0*H0>=NH* 

1520 POSITION 12+3*H0»12S? NH*; 

1530 NEXT HO 

1540 IF DO THEN 1620 

1550 FOR J0=1 TO 4 

1560 IF JC(JO>=0 THEN 1610 

1570 JO. JO>=JC< J0)-1 

1580 IF JtXJO»0 THEN 1610 

1590 NJ=NU+1 





1600 POSITION JKJ0>*6!? JF*<JO*JO>, 
1610 NEXT J0:60T0 1630 
1620 DO0C-UIF DC=0 THEN 60SUB 1200 
1630 IF NOT JH THEN RETURN 
1640 JC=JC-l:SOUND 0*250*10*15 
1650 W=10:6OSUB 800 
1660 POSITION 00+24*1:? " "* 
1670 IF -JC=0 THEN Jfi=0:POSITIGN 20, U? ' 
'■*: POSITION 9*11:? ■' ",:RE!'I 4+1 sp. 
1660 SOUND 0*0*0*0: RETURN 
169S RE11 ### not, enough money ### 
1700 HB=l:60S06 1200 
1710 JH=0:POSITION 20,1:? * 
"*:REfi 19 spaces. 
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1728 B*=" INSERT OR END":60SUB 1388 

1738 S1$="INSERT < 1 >":S2*=»e INSERT < J )t" 

1748 S3*=" u :X=10:Y=l:UOL=15 

1758 GOSUB 1088: IP IN*="P" THEN 1758 

1760 RETURN 

1799 REl'l ### noid poss.ble *** 

1808 B*=" INSERT HOLD RLfiV END" 

1818 60SUB 1300:X=15:Y=12:UGL=4 

1820 Sl*="£ G<ESC>DOkESC>L*:ie (2<ESC>C*J 

<ESC>Oae G" = S2*= U H<ESC:>E*3<ESC>E*»<ESC 

>C#3<ESC>OOH" 

1830 FOR HO=l TO 3: I=3*H0~2 

1848 Sl*< 1 , 1 >=HF*< HO, HO >: NEXT HO 

1858 S3*=Sl*:SGS06 1088:HO=IN-48 

1868 IF HU<1 OR H0>3 THEN RETLIRN 

1878 NH=NH+l:lF HF*< HG,HO>=NH$ THEN HF** 

HO , HO :*= " SHS " : GOT 1 838 

1888 HF*<;HO,HO>=NH*:eOTO 1838 

1889 RECi ### no hold ### 
1980 B$=" INSERT , PLHV OR END" 
1910 60SUB 1380 

1928 Sl$="???":S2$= u fc , ?'7~<'G":S3$="G G" 

1938 X=l7:V=19:U0L=2:60SUB 1888 

1948 RETLIRN 

1 999 REi'l # what, to do id i th u» i nn i nas #&# 

2888 B*="":IF NOT HE THEN B*="HOLD H 

2818 B*<LEN<B$;>+I )="6WnBLE COLLECT" 

2828 60SUB 1388 

2838 S1*="T??":S2$="G???G":S3*="G S" 

2840 X=17:'t-19:U0L=2:60SUB 1080 

2050 RETLIRN 

<;899 REl'l «## spin gamble tuHeels ### 

2188 nT=NT+i:HD=8 

2118 FOR WD=1 TO 3: IF HF*(HO,HD J=NH$ THE 

N POSITION 18+4*WD,9:? " ";:NEXT HO 

2128 FOR WO=l TO 3 

2138 SOUND 0,183+24*HLM2,10 

2148 IF HF*<WD,t4DK:>NH* THEN HD=i:GOT0 2 

258 

iisw fi=int<;rncb; 8^*180+1 > 

2168 IF FK5 I HEN Uc WD J=F1:G0T0 2180 
2178 U< WD >=5+< F 1 >? .:■+< F I > 1 8 >+< F I > 1 3 >+< F 1 > 
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23 W F i >36 )+< F I >49 >-K F i >68 >+< F I >a ? > 

2180 FOR W=i TO 5*HD 

2130 IF W=WD THEN SOUND 1.0,0*0 

2208 FOR WS=WO TO 3 

2210 IF HF«HS#MS>=NH$ THEN l=iNK13*RND 

< O >+ 1 ) : F'OS I T I ON 1 6+4*NS , 9 : : " HF*< I , I ;> ; 

2220 NEXT MS: NEXT w: SOUND 1,100, 10, i5 

2230 POSITION 10+4*W0,3 

2240 ? WF«0<MD;,WHO)>J 

2250 NEXT WO: W=30: 60SUB 800 

2260 SOUND 0,0,0,0: SOUND 1,0,0,0 

22 ?0 RETURN 

22S9 REI'I ##» take care of jokers ### 

2300 J6=0 

2310 FOR WD=1 TO 3:U=U<;hD> 

2320 IF 0>4 THEN FU=U:60T0 23S0 

2330 0W=w0:o6=oG+i:IF JC<UJ»0 THEN 2360 

2340 POSITION JFx ','.:■, k:y " "; 

2350 OCX U >=20 : NU=NJ- 1 

2360 NEXT WD 

c'3?0 IF NOT DO THEN DO=<NJ=0)llF DO THE 

N DC-15! POSITION 26,0:? "double LHJT'i 

2380 RETURN 

2399 REi'l ### compute sb innings ##* 

2400 Hu=l3:0N JS SOTO 2430, 24 10, 24 rtj 
2410 if NOT ( OH WNO FU>1W> THEN HU=FU 
2420 GOTO 24?0 

2430 U< >=U< 3 > : U< 4 )=0< 1 > 

2440 IF jh AND U';.-«-i.K/U(Jw+i.J Then 24? 



2450 U( a ;>= 1 5 : W 4 J= 1 5 

2460 hu=o<. jw+ 1-2+1 gt. .jh+1 :>;\k oh-i ;■ ; ) 

24>-'0 FOR WD=1 CO 3:HU f ,WU.>='XWD.> 

2480 IF WHDX5 THEN HWHB>=HU 

2490 NEXT wO 

25O0 IF HO 1 ; 1 .j=HW 2 ;■ WNO HW2>=HW<3> Wnu 

jhxhv<2>> Then gosob 1400 

2510 FDR WD=1 10 3:Wl=MI+<H0<W0>=l3J 

2520 NEKi WDI If .JH I HEN Hi = lt1SWi 

2530 NS=<; HW 1 )=HU< 2 ) H< HOC 2 J=HO<; 3 > ): Wl=W 

I+R<NS»HU<2^; 

2540 IF 00 Then wl=wi+Hi 
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255W RETURN 

£593 REf'l ### gamble ### 
2600 N6=N6+1 : W=l : 6U< 1 }=2*WI : &X 2 >=« 
261B GU<3>=INT<3*WI-''2):GU<4)=INT<WI>'2) 
2620 B*="ST0P u s60SUB 1300 
2630 POSITION 10,1:? " e6fflieLEe u j 

2640 FOR LI =2 TO 8: POSIT ION 29,LI:? "6 
G";:NEXT LI: REN 10 inv-spaces. 
2650 R=R+l:IF R>4 THEN R=l 
2668 POSITION GP<R,0>,6P<.R,1>:? 6U<R);:S 
OUNO 0,8W+10*R,10,15 

2670 IF PEEK<764><>255 AND IN*<>"S" THEN 
GET #2 , I N : I N*=CHR*< I N ) 
2680 IF IN*<>"S" THEN 2700 
2690 W=<1+RNO<:0;>*W:6OSUB 880 
2700 IF W<200 THEN POSITION GP<R,0>,6P< R 
,!>:•? "g e";:6GT0 2650 

2710 FOR LI=2 TO 8:PGSITIGN 23,L1:? " 

U ;:NEXT LI:R01 10 spaces. 
272a POSITION 14#1S? " "i 

2730 SOUND 0,0,0,0 
2740 6W=6H+6U< R )-H 1 : W I =6U< R >: RETURN 

2799 REP! ### end of game ### 

2800 GRAPHICS 0:POKE 82,2 

2810 ? "<ESC>t=J<ESC><THe>ftflOUNT OF ITONE 
V : " 

2820 ? "<ESC>C=3<ESCXTHB>Put in 
";H1 
? "<ESC>C=3<LSCXTHb>Got back 

";l'IO/4 
? "<ESC>C=J<ESCXTH8>f1ax at one tim 
"if1IV4 
? "<ESC>t=3<ESC><THB>u>on by gamblin 

";6W/4 
? "<ESC>t=J<ESCXTHB>Nufflber of told 

"jNH 
? "<ESC>L=3<ESCXTH6>Nu«ber of gaab 

a $m 

? "<ESC>t=3<E££XTT-ie>Number of turn 
";NT 
2890 END 

2899 REH ##### main pro-am **#** 

2900 SQSUB 100:R£fl initialize # 

20 



2840 
e 

2850 
9 

2860 

■5 

2870 
le=. 

2880 



£310 GOSUB 1500: RBI adapt # 

2920 IF l"ID>ffi THEN WNflQ 

2930 OH 2*HB+<F1Q>1 >+l GOSUB 1708,1888,1? 

00,1900 

2940 POSITION 12,1:? " *i 
2958 CH=< IN*="I" >+2*< 1N*="P" >+3#< IN*="E" 
;i 

2960 ON OH GOTO 2970,3888,2888: GOTO 2928 
297a N I =N I + 1 : 1 N=4 : GOSUB 1 1 88 
29S0 IF flOX'in THEN CII'HIO 
2990 SOTO 2926 
3000 IN=-2:GGSUB 11 WW 
3810 GOSUB 2180: REPi spin wheels * 
302W GOSUB 2388: REM jokers # 
3030 GOSUB 24*30: REI'l Winnings # 
3040 HB=HO OR It0<2 
3058 IF HI>LH THEN 3118 
3060 IF NOT HO THEN 2918 
3870 POSITION 12,1:? "YOU LOST"; 
3090 SOUND 0,258,18,15 
3:890 14=38: GOSUB 888: SOUND 8,8,8,0 
3100 GOTO 2918 

3110 POSITION 12,1:? "HONs " i 
3120 POSITION 16,1 :? Wis 
3138 FOR DU=Wl+l TO 2 STEP -1 
3140 SOUND 0,DU,10,l5 
3158 (4=18: GOSUB S88 
3160 NEft'T DO 

3170 GOSOB 2088: KEPI 9et instruction # 
3180 CO=<IN*="H" AND NOT HB>+2¥< IN$="G" 
:'+3*< IN*="C" > 

3190 ON CH GOTO 29lW,321W,328e:60TO 3178 
3288 HB= 1 : I N=W I : GOSUB 1 1 88 : GOTO 29 1 8 
3218 GOSUB 2688:REi1 oaflible # 
3220 HD=-i:LI4=8:G0T0 3848 
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Parrot 



PARROT is a very simple competition game. Play it on a rainy day with a friend 
(especially after your friend has had a few beers!). 

At the start of the game, your computer impertinently asks you: 
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ARE YOU READY PARROT? 

Yes, he is calling you a parrot! Press any key and the computer immediately 
displays a letter. You must enter the same letter as fast as you can. Since you 
copy each letter, you really are a parrot! The game is repeated for about 10 
seconds, and then the computer shows your score. 

How good are you as a parrot? Have a competition with your friends and 
try to win the title of 'Super-Duper Parrot'. (My record is 19 — I teach 
parrots!) 



10 REF'l ###*#####«## parrot. ############ 

20 DIM Xf< 1 ) 

30 OPEN #2,4*8* "K! " 

40 DL=PEEK< S60 )+PEEK< 561 >*256 

50 POKE DL+1S,?:P0KE 0L+l6,?:PUKE 82*8 

6H ? "<£SC>C<3<ESC>C=3<ESC>C=3<ESC>C=3<e 

SC><TfiBXESe><TfiB> LHJfiCTj EUJ-J? "<ESC 

X The: X ESC >< TfiB>CF JGC J J & " 

?a ? "<ESCXTfi6X£SCXTAB> H lrjiI"' 

£:0 ■? if i"<ESC>E= : Il£'3re you reaau parrots 

" : ? "<£SC>t=3<£SCX TBBXESCX TOBXESCX T 

30 GET #2*x: ? "<£SCXSHIFTXBflCK SXESC.> 
[-3<ESC>C-3<ESCXSHIFTX6fiCK S> gthc 

parrots " ; 

100 POKE 13*0: POKE 28*0 

1 1 x'= I NT< 65+26*RND< .■'' ) 

120 POSITION 22*10:? CHR$< X+32 >* " "* 

130 FOR M=l TO 20:_NE;=<T w: SOUND 0*0*0*8 

140 IF PEEK<20)+25e*PEEK<19;>600 THEN 20 



150 IF PEEK<?64>=255 I HEN 140 
ISO GET #2*6!? CHR$<6>, 

l?0 IF SOX THEN SOUND 0*240#10*15:6OTO 

130 

180 OC+ls SOUND 0*20*10*15 

136 ? "<ESCXSHIFTXBfiCK S>"*: POSIT ION 2 

2, 10: GOTO 110 
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2W ? :? "<ESC>C=:KESC><TO6>Score : » id 
" in 10 iec. » 

21 8 FOR W=180 TO STEP -1 

220 SOUND 0,H,1h,i5:NLaT W: SOUND 0,8,8,0 

238 ? "<ESC>IXKESC><TBB>Do you want, to 

play ayain "; 

240 INPUT X*:IF X*<>"N" THEN RUN 
250 GRAPHICS 0SPOKE 82,8: END 
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Kentucky Derby 



Ladies and gentlemen, they are off! Red Arrow is off to a good start . . . 
Blondish Boy is giving his jockey some trouble . . . and there's the famous 
Spanish Lady, on the inside track. This is really first class excitement, and 
we've only just begun! Coming round the first bend . . . Mickey Finn has taken 
over the lead, hard-pressed by Speedy Gonzales . . . 

The Kentucky Derby is a horse-racing game. There are not as many horses 
in our Kentucky Derby as there are in the real race — in fact, there are only 
three — but they have to run 10 gruelling laps (with computer horse-racing 
anything is possible)! At the start of the game the odds are given for each 
horse. Now you can place your bets. As long as you have money you can bet 
again and again — these horses never get tired. 

After the RUN command we see: 

YOU HAVE 

HOW MUCH DO YOU BET ON HORSE 1 



HORSE 

ODDS 

BET 



1 2 3 

2 2 3 



(odds may vary from race to race). 

When you have run out of money, your computer cheekily tells you: 

YOU'RE LIVING ABOVE YOUR MEANS 

Immediately after you enter all your bets the screen displays the racetrack, with 
horses at the starting gates. The odds and bets are displayed in the lower part 
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of the screen. 



/ put my money on the bobtailed nag 
Somebody bet on the bay 



18 RBI ######## Kentucky Derby ######## 
20 01 n Ftt 3 > , Ut 3 >,X { , 3 > , 1 <-. 3 > 
30 Gil'i LX3;»,Pc3>#.U3>#S<3^ 
40 OPEN *2,4,M,"K" 
50 GOTO 1200 

99 Hbi'i »## initialize #»# 

1 00 Oi'i 1 N= i : Du= 1 : U(JPG=2 : XftHX= 19.5 
1 1 a ROUNDS= 1 : CR£D I T= 1 00 : XH= 1 

120 XH 1 =XPi-2 . 5 : XH2=XH-0 . 8 : XH3=XH+0 . 9 
130 REIORN 

199 REi'l #«# initialize k.orse-s ##* 

200 HINNER=0 
210 FOR K=l TO 3 

220 X( R >=8: R< k ;'=0: Dc k ;>=ti 
230 P< K ;>=< INK 5$RND< >+l V5 ) 
240 UC K >=Fx K >*OU+Ufl 1 N : T< K J=2*K 
250 NEXT K 
268 RETURN 

299 REl't ### make bets ### 

300 PTOi=0 

310 FOR 1=1 TO 3!P<I J=cy<i>-UF1INVDy!PT0 

T=PT0T+P«; I >:NExi i 

320 FOR K=l TO 3tKK)=INT<PT0r/'P<K>)shEX 

r K 

S3k) GRAPHICS 2+lb:SElC0LGH l,4,b 

340 SETCOLOR 2* l3*6s SETCOLOR 3,12,10 

350 POSITION 0,9 

360 ? #6;"iiH0RSE:t Q K SJ£" 

3?0 ? #6i"eODDS :£":? #S; "eBET se** 

390 POSITION 0,0 

390 ? tbi'TJJJ Kentucky derby CUT'.; 

400 ? *bi"f VOL) CHN BETC"; 

410 FOR 1=1 TO 3: POSITION 6+4*1,10:? *6; 

PC I X»! NEXT 1 
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428 POSITION 8*6 

430 ? #6'j"H0H I'lUCH DO VOU BET" 

440 ? #6i"0N HORSE ?"i 

450 FOR J=l TO 3: POSIT ION 0,3 

460 ? #6;" VOU HftOt "iCREOIl;"* 

4?0 r #6i" 

■' j : REj'l 36 spaces. 

480 L=@!l< d >=0s POSITION 9,7:? #6iJ; 

490 POSITION 13*?:? #6;" "; 

500 POSITION 13,7 

510 GET *2,X:IF X=i55 THEN 550 

520 X=X-48: IF X<0 OR X>10 THEN 510 

530 ? #6;CHR*<X+i6^i 

540 L=L+1= K J>=H J)Sa0+x:6OTG 510 

550 IF CREDIRKJ) THEN POSITION 2,4:? # 

6;"GV0lrRE LIUING HBOUE VOUR MEANS !g 

"sGOTO 430 

560 CREDrT=CREOIT-Ic;.J> 

570 POSITION 7+4*J-L,li:? #6iKJ>i 

560 NEXT J: RE I URN 

599 REM ### change character set- ### 

600 RESTORE :TuP=PEEK< 106 >-8 
610 POKE 204, TOP: POKE 206, 224 
620 (-OR X= 1536 TO 1555 

630 REHD Us POKE X,U 

640 NEXT X 

650 U=USR< 1536) 

660 OHTH 104,162,4,160,0,177,205,145 

670 OATH 203,200,208,249,230,206,230 

680 DhTh 204,202,208,242,96 

690 RflPlSEl =TGF'*256 

700 FOR 1=59 TO 63 

710 FOR X=Rfli'lSET+I*8 TO RftflSE 1+1*8+7 

720 REHU U:POKE X,U:NEXT x:NEXT I 

730 OHTH 4,7,7,132,124,124,68,130 

740 OHTH 4,7,12,60,255,206,64,96 

750 DHTH 4,7,6,60,60,38,68,129 

760 DHTH 60,60,62,126,126,127,255,255 

770 OATH 0,0,0,0,0,0,0,255 

780 POKE 756, TOP: RETURN 

799 REfl ### initialize screen #*♦ 
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800 POSITION 0*7s? ffbi" 

YOU HHUh ";CREuIT; ''$."; 
8i0 POSITION 0,1 
820 FOR K=l TO 3 

830 ? »6;tO": "i 

840 ? #6i u fiOlNNNI*WI#lha<ESC)C<fiWCK S>NNN 
NNNNNN]K!"j 

850 POSITION 2,KK>-1:? #6;R<(0 
660 POSITION X<K>,TCK>5? #6i*eC*je" 
8?0 NEXT K: RE TURN 

899 REiT ### horse race #»# 

900 FOR 0=1 TO 3: SOUND 0,0,0,0 
9i0 IF u< Gj ;■ THEN iiio 

920 POSITION X(Q),KQ) 

930 IF S<Q>=0 THEN ? ttei'VUNJe" 

940 IF SXQ) THhN ? #6i" " 

950 IF S';Ci>=i THEN S';u>=0:GOTO 1080 

960 X<Q)=X<Q>HKG> 

970 WQ )=U< GJ HUUP8*RND< O >*< UFKK > > 

980 IP S<Q;'=2 THEN T< Q>=KG!>+1:S<LQ^=0:GO 

TO 108a 

990 IF <XH1<X<0>) HND <K<QKXH3> THEN 10 

GO 

1008 IF X<QXXl'iHX THEN 1080 
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1 8 1 is ». i i! )=X< U! >-Xl¥ix : fit Q >=Rt Q >+ 1 

102a POSITION 2«T(Q)-i:? #6iFKQ>i 

103i3 IF RtGX ROUNDS THEN GOTO 10b'0_ 

1040 EKQ>=1«IF NINNER=0 THEN WlNNtK=Q 

1050 60 TO 1080 

1060 IF XCQXXH2 THEN St UJ=i:GOTu itrttw 

1070 S< Q >=2'- T< U }=T< L-! J-l 

1080 SOUND 0,240,10,15 

1090 POSITION fitSJ.KQ; 1 

1100 ? §6iCHR*<25i+S<Q)>* 

1110 NEXT Q 

1120 SOUND 0,0,0*0: RE I URN 

1199 REfi ####» mam program #*### 

1200 GOSUB 100:RfcJ'l initialize # 
12ltf GOSUB 200: REfi in it iai ize horses # 
1220 GOSUB 300: REfi make bets * 
1230 SOUND 0,20,10,15 

1240 GOSUB 600: REfi character set # 

1250 GOSUB 800: REfi initialize screen * 

1280 U0=< IX 1 >+U< 2 )+Ut 3 > )/3 

1270 GOSUB 900: REfi horse race * 

1290 IF Dti )+Dt2;'+D<3><3 THEN i260 

1 300 CRED I T=CRED I T+K W I NNEft «: 1 1 Hi NNER ) 

1310 POSITION 0,8 

1320 '? #6;"ehorse e";HlNNEfi;"e wins g" 

1330 IF CREDIT THEN SOUND 0,100, 10,15:PO 

R W=l TO 500: NEXT H: SOUND 0,0,0,0: GDI 1 

ilia 

l.'.40 ? #6:? #6; "YOU LOST HU_ VOufi NONE 

V ! ! "i 

1350 GOTO 1350 
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Rainbow Square Dance 

A two-dimensional cube? Impossible of course, but this game, played on the 
computer screen, is similar in many ways to Rubik's Cube. 

You will see 25 colored squares arranged at random on a 5 x 5 board. The 
rows of squares on the board are numbered like this: 



2 
3 
4 
5 



6 7 8 9 

That is, the horizontal rows are numbered 1 to 5 and the vertical rows 6, 7, 8, 
9, and 0. When you enter the number of a row, the squares in that row are 
moved one position. In a horizontal row the squares move to the right, and in a 
vertical row they move downwards. As a square disappears off one end of a 
row it reappears at the other end, like this 













\ 


_y 



in a horizontal row, or this 
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r 
c 
( 
c 





J 



in a vertical row. 

The object of all this? You must rearrange the squares to form five hori- 
zontal stripes of one color each. Sounds simple . . . but is it? 



18 REM ##### Rainbow square Dance ##### 
20 Din h<5,5;' 

38 OPEN #2,4,W, "K" 
46 GOTO BOO 

99 REP! ### initialize ### 

100 FOR 1=0 TO 4: READ fl 

110 FOR 0=0 TO 4:fi< I,.J.J=ft:NEXT J 

120 NEXT 1 

130 UHTH 3,35,163,0,131 

199 REP'I ### initialize screen ### 

200 GRAPHICS 1? 

210 ? #6i"i-:rairiboMJ square danceii •':•<• #6 



0" 



^i'W '■' #6;" 6 7 8 

230 FOR 1=1 TO 5 

240 POSITION 0,3*1+2: ? #b;I 

250 POSITION 18,3*1+2:? #6; li 

260 NEXT 1 

270 POSITION 0,20:? #6i" 6 

260 FOR 1=0 TO 4: FOR K=0 TO 2 

290 POSITION 2,4+3:?-:i+K 

300 FOR J=0 TO 4: FOR L=0 TO d 



#6 



9 a 
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3 i 8 ? #6 i CHR*< Ai I * J ) > J 

32a NEXT UNEXT J: HEX I KsNJEXT I 

338 RETURN 

399 REfi ### sh i ft row ### 

400 FOR 1=5 TO i STEP -1 
4iw HCFM )={\kH,L-\ ;• 

420 NEXT 1 

430 H<H,0.:'=H<H*5;' 

440 FOR K=8 TO 2 

450 POSITION 2,4+tW3+K 

460 FOR J=0 TO 4: FOR L=8 TO 2 

470 ? #6iCHR*<H<H#J>)» 

48W NEXT UNEXT J:NEXI Ks RETURN 

499 REfi ### shift column *«# 

508 FOR 1=5 TO 1 STEP -1 

5l8 H< 1,14 ;=FK I-i#rtiJ 

528 NEXT I 

530 FK8.»H;>=FK5#ft) 

540 FOR 1=0 TO 4: FOR K=8 TO 2 

558 POSITION 2+3*H J .4+I*3+K 
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560 FOR L=fct TO 2:? #6iCHR*tfK l*fl>^i!NEX1 

L 
570 NEXT K:n£XT I: RETURN 
b'00 REPI ft»lt # main program ### 
610 LEU=30 

620 SOSUB 180: REPI initialize # 
630 FOR; H=l TO LEU 
640 H= I N T< RNCK >*5 '.> 

650 UN INK 1+2*RND': 0>.J 605UB 400, 500 
660 NEXT W 
670 POSITION 0,23 
680 ? #6; "enter- row : "i 
690 POSH ION 11,23 
TOO GET #2,h:? ffbiCHRjc H.Ji:fi=H-4a 
710 IF HBS<H-4.5 j>=5 THEN 6?0 
7'20 IF H=0 THEN H=la 

730 IF H>5 THEN H=H-6:GGSuB 500: GOTO 670 
740 fl=H-i:60Sut: 400 
750 GOTO 670 
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Qui Vive 



To be 'on the qui vive' means to be alert and watchful. This game is called QUI 
VIVE because to play it successfully you must always be on the look out for 
winning situations. The rules are very simple but the program needed to imple- 
ment them is anything but. In fact, it presents quite a challenge to a games 
programmer. 

QUI VIVE was invented by Eugene de Wolf and is played on a square 5 x 
5 board. Each player has five checkers and must try to arrange them into one 
of seven symmetrical patterns. These are: 



a horizontal line, e.g. 



a vertical line, e.g. 
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a diagonal, e.g. 



I 

• — •- 

I 
a rectangular cross, e.g. ' • 



a skew cross, e.g. 



• • 






• • 
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a vertical wing, e.g. 



\ 



\ 



• • 



a horizontal wing, e.g. 



/\ 



• • 



/ 



V 



At the start of the game the board is empty and you and the computer take 
turns to place checkers on it. The positions on the board are labelled like this: 
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©1 2 3 4 5 

© 6 7 8 9 10 

© 11 12 13 14 15 

© 16 17 18 19 20 

© 21 22 23 24 25 

© © © ® © 

To place a checker at any particular position simply enter the appropriate 
coordinates: for instance for position 21 enter Al, for position 12, B3, etc. 
Your checkers are indicated by P and the computer's by C. 

If all ten checkers have been placed on the board and no one has won, the 
game continues, with you and the computer taking turns to move checkers to 
try and gain a winning position. To move one of your checkers you enter the 
coordinates first of its present position and then of the position to which you 
wish to move it. 

You must keep a look out for chances to make a winning pattern yourself, 
at the same time making sure that you are blocking any winning moves by the 
computer. 

The program is one of the most interesting in this book. It contains a list 
of not only all 42 possible winning patterns but also over 100 particularly 
strong situations from which a player has a chance of making either one of two 
winning patterns. During the game the computer monitors this list in the light 
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of the situation on the board and assesses what its best move is. 

We advise you to play this game on an ordinary checkerboard against one 
of your friends before you take on the computer. You will soon see what a 
superb game it is. 

10 h'hl'l »##### Q U i - g i v e ###### 

2a Dlfl SR41#4;>#SRX4iX,x$<;2?; 

38 Dlfl 0F\ ltf, ;, ,i J#DFF< 10?,6>*DFP( \%? > 

40 D I f'l Cd. 4 , 1 :> , B< 24 .:> , CDF ■; 30 .:■ , PDF 'c 30 ':■ 

M POKE 92,5:? 'KESC>t<CLEHR;a<E3c5l£=:]P 
please wait. £'< 

80 SOTO baa 

99 RSI ### compute points of CDF ■: romput 

er Double Figures) ### 

1 00 P 1 =C 6':. OFF< OF , a .j .:■ OR B< OFF X DF , 1 :■ :> ;■+■: & 

CDFF<DF#2J) Ok &CDFF<DF*3))) 

110 P=c. B< DFF< OF ,4 ;■ }+b\ OFFX DF ,5 > >+6< OFF': u 

f #e>> via 

120 IF PK2 UNO P=3 (HEN P=P1 +2: RETURN 
130 P=Pl+P: RETURN 

199 REM ### compute points ot' PDF (piaye 
r Double F i gures .:■ ### 

260 N6P 1 =0 : NbP2=a : NSC 1 =0 : NOC2=0 
2 10 D 1 =B< DF Ft DF ,&»: D2=B< DFF CDF,!;; 
220 IF Dl=l OR 02=1 THEN NOP 1=1 
230 IF Dl=ia OR 02=10 THEN NGCl=10 
240 Dl=£:< DFFi; DF*2 :> >:D2=B< DFF< OF ,3 ) ) 
250 IF Dl=l OR D2=l THEN N6P2=1 
260 IF 01=10 OR 02=10 THEN NGC2=10 
2?0 SV=B< DFF< DF ,4 ) HEK DFF< OF ,5 > >+B< DPFt. 
F*6>> 

280 F'=G0+NGP 1 +N0P2+N6C 1 +N6C2 
290 IF 60=30 HND (N3C1=@ OR N6C2=0) IHEN 
P=P-10 

300 IF GU=3 UNO t NOP 1=0 OR N6C2=0; THEN 
P=P-1 

310 RETURN 

399 RED ### determine strategic vaiue of 
move ### 

400 IF NCOF'=0 IHEN 490 
4 1 I1C=0 : Nl v iC=0 : BEST=a 
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438 

440 

CDF : 
450 

480 
4?0 
480 
RET 
490 
500 
510 
528 
530 
;.4ti 
550 

UNO 

560 
570 
599 
600 

t>10 

es '> 

620 
es f 
b.jy 
t;4y 
650 
960 
t>60 
b?y 
Say 
tay 



FOR CDF=0 rO NCOF-l 

DF=CDF< CDF >: 60SUB 1 m 

IF P>4 THEN PP=CP:PT=CT:BEST=1:CDF=N 
NEXT CDF: RETURN 

IF P=RC THEN NlTC=NlTC+l 
IF P>P1C THEN nC=P:NHC=l 
NEXT CDF 

IF flCiflP OR U1C=PIP HND NITC<Nl'IP) THEN 
URN 

IF NPOF=0 THEN 550 

IF 0=0 THEN PP=CP:PT=CT 

FuR_POF=0 TO NPDF-1 

DF=F'DF';PDF >:6QSUB 200 

IF P=4 THEN PDF=y:NEXT PDF: RETURN 

NEXT PDF 

IF I'IP=ITC HND NI'iP=Ni'IC HNO RND<0><0.5 

fl=l THEN RETURN 

I'iF-iTC : N[-1F'=N[TC : PP=CP : PT=C T : f+= 1 

RETURN 

REIT ##*## mam program ##### 

GQSUB 2600: REf) init-SF (Single FiQur 

6QSU8 3300: REIT init-DF < Double Figur 

SOSUfi 3500SRB1 com-DFF < Double FiQur 

leid-E- .) 

i_:i_:=y:pC=y 

;• "Do you mam, t,o begin *i: INPUT X* 

IF X*tl#l>="V" THEN 60SU8 1300: GOTO 

PP=12:60T0 956 

FOR 1=0 TO 4:CCc. 1,1 .:'=y:NEXT i 
60SUB 1800: REfl otuner-SF's * 

IF P=5 THEN ? -fvou uune<ESC>C23*860 
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TO Haw 

?m if hsfo-i then hosub i7e8:eosuB 14a 

&i{ "61 <Bine<ESC>t23 n !S0T0 1100 

70S ? "(■' Fly turn, please wait £■■' 

710 60SU8 2080! REf'i omner-DF's # 

728 GOSUB 2388: REFI interesting DF's # 

730 P=a : BF =0 : EF =24 : MP=0 : NFIF-8 

740 IF Ul'IO-1 THEN BF=UCl : EF=Of1 

750 CP=6F-1 

?6y CP=CP+i:IF CP>EF THEN 950 

778 IF B<CPX>0 THEN 348 

798 GOSUB 2400s REM find CDF # 

see if sko hnd h=i then 348 
810 B:CP>=i8 
820 IF CC=5 THEN 988 

838 GOSUB 488:REfT Strategic value # 

948 IF BEST THEN BEST =8: GOTO 950 
858 GOTO 938 
888 FOR CTI=8 TO 4 
878 IF CCCCTIjI > THEN 928 
998 CT=CC< CTI *8 >'B< CT >=8 
898 GOSUB 488: REF'I Strategic value # 

988 IF BEST THEN BEST=8:CTI=9:NEXT CTI: 6 
OTO 958 
318 BO::T::'=18 
928 NEXT CTI 
938 B< CF' >=8 
948 GOTO 768 

958 GOSUB 1400: REFI computer move # 

3S8 GOSUB 1588: REIi player move # 

978 GOTO 678 

1839 REFI ### again ? ### 
1188 : " "Do you want to pi ay again " -, 
1118 INPUT X?:IF K*="V" THEN FOR 1=8 TO 
24: B< I >=0: NEXT I : GOTO 638 
1120 END 

1139 REFI ### get input ### 
1208 INPUT >#:IF LENO«:X>2 THEN 1248 
1218 IF »(1 J 1X"H H OR X*<1,1I»"E" OR X* 
<2,2x"i" OR X*(2,2::'>"5" THEN 1248 
1 228 X=MSC< K$< 1 , 1 ) >-5S0fiL< K*< 2 , 2 :> :>-4& 
1238 RETURN 
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1240 ? 'KESOCZWong input try again "j 
1250 GOTO 120B 

1299 KEPI ff## sham board ### 

1300 FOR I=B TO 4:? 5-1 i 
1310 FOR J=0 TO 4:k=I*5+.J 
1320 IF BOO=0 THEN ? "E Q"i 
1330 IF Of. K.j=10 THEN ? "t'CTDf'i 
1340 IF BCK>=1 THEN ? "CTU"; 
1350 NEK f j:? :NEaT I 

1360 ? h <esc>i:-j<esc>c-3<esc>c-j<esc>i:*j 

4 ESC >m< ESC VUOK ESC >m< ESC >C*3< ESC >E*3 
<ESC>EOI am : eilUC" 

13?'0 ? "<£SC>C*3<ESC>E*3<ESC>C*3<ESC>C*3 
<ESC>C*3<ESC>CO<ESC>C*3Vou are: CTHKESC 
>E=3":? " HBCDE":? 

1380 RETURN 

1399 REI'l ### computer move »## 

1400 IF CC<5 THEN F'T=CC:CC=CC+l :6070 146 
11 

1410 t "I take up 

1420 &<P\ >=& 



'iCHR«65+PT-INT<PT 
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1430 FOR CT1=0 TO 4 

1440 IF CC<CTI,8>=PT THEN PT=CT1:CTJ=9 

1456 NEXT CTI 

1460 ? "I Put down : " *CHR« 65+PP-INK PP 

/5>*5>i5-INT<PP^5> 

1 470 &< PP >= 1 : CC< PT j. )=PP 

1480 60SUB 1300: RETURN 

1499 REH ### player move ### 

1500 IF PCs 5 THEN 1540 

1510 ? "Which checker do you take up "; 

1520 BQSU8 1200: PT=X 

1530 IF B<PT><>1 THEN ? "<ESOC23Not pos 

s.ible"iGOTQ 1510 

1540 ? "Where do you put your checker "; 

1550 eosue 1200: PP=X 

1560 IF B',PPK>0 THEN ? "<ESC>C23Not pos 

sible":60T0 154u 

1570 IF PC=5 THEN B<PT>=8 

15S0 IF PC<5 THEN PC=PC+1 

1590 B<PP)=1 

1600 60SUB 1300: RET URN 

1699 REP1 #### winning ### 

1 700 SF=WSF : GOSUB 2 1 00 : PP=OI'l 
1710 FOR CTI=0 TO 4-!CT=OKCTI#0) 
1720 FOR 1=0 TO 4 

1730 IF 9Fc.SF,0=CT THEN I =9: NEXT I: NEXT 

CTIS RETURN 
1740 NEXT' l:PT=CT 
1 750 C T I =9 : NEXT CT 1 s RE I URN 
1799 KEl'l ##» determine owner of" SF'S ### 
### ana obi i gator y move ( Ufl >### 
### and checker pending <iX.J### 
1900 Ul , l=-i:WSF=-l 
1810 FOR SF=0 TO 41 

1820 P=B< SFX SF,0 > >+&•; SF< SF, 1 ) >+B( SF< SF,2 
;■ >+Bt SF< SF , 3 > j+tK SFX SF , 4 > > 
1830 IF P=0 OR P=10 OR P=20 OR P=30 THEN 

SF UC SF >= 1 : NEX 1 SF : RE TURN 
1840 IF P=40 THEN WSF=SF:NEXT SF: RETURN 

1850 IF P>20 OR P<3 OR P=ll OR P=l2 THEN 
SF0< SF >=0 : NEXT SF : RETURN 
i860 SFO';SFj=1 
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ltv'kt IF P=4 AND Of'l=-l THEN 6QSUB 2100 

1880 IF P=14 THEN GOSUB 2200 

1880 IF P=5 THEN SF=99 

1980 NEXT SF: RETURN 

1939 REfl ### determine owner of OF's ### 

2000 NCDF =0 : NF'DF =8 

2010 FOR OF =8 TO 10? 

2020 01=SFO< DFi. OF #0 > >:02=SF0C DFX OF , 1 > ) 

2038 IF 01OG2 OR 01=8 OR 02=0 THEN DFF*< 

OF >=0i NEXT DF : RETURN 

2040 B0SUB 200:OFP';DF>=P 

2050 IF P=30 OR P=40 THEN CDF (. NCDF >=DF : N 

CDF=NCDF+ 1 : NEXT DF : RETURN 

2060 IF P=4 OR F-14 THEN PDF < NF'DF ,J=OF : NP 
DF =NPDF + 1 : NEXT DF : RETUFlN 
2070 NEXT DF: RETURN 

2099 REfl ### determine otl i gator '-i ### 
### move ton; ### 

2108 FUR 1=8 TO 4 

2110 IF B<SF<SF*I>>=0 THEN 0f1=SF<SF#I ): I 

=9 

2128 NEXT I: RETURN 
2 199 REfl »#ff determine pended ### 
### checker (CC) ##* 

2288 FOR 1=8 10 4 

2218 IF B<SF<SF*I>?=18 THEN F=I:I=9 
2228 NEXT 1 
2238 FOR J=0 TO CC-1 
2240 I F 9F'; SF,F j=CCf J»0 ) THEN CCC J, 1 j=l : 
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■j=y 

225a NEXT J: RETURN 

2299 REi'l detenu i ne i nt-erest i ng DF ' s ### 

230S IF NCDF>5 THEN RETURN 

2318 ]=20 

2320 FOR DF=0 TO 10? 

2338 IF DFP<DFX>I THEN NEXT OF: SOTO 23? 



2340 IF SFO<DF<DF*8>)=10 AND SFO< DF< DF , 1 
) >=10 THEN CDF< NCDF >=DF : NCOF=NCDF+l 

2350 IF NC0F=6 THEN DF=108:NEXT DF:RETUR 

N 

£.'360 NEXT DF 

2378 if 1=0 THEN RETURN 

2388 1=1-10 

2390 GOTO 2320 

2399 RET'i ### find CDF ### 

2408 IF OrlO-1 THEN SK=9: RETURN 

2420 IF NCDF=8 THEN 2478 

2438 FUR CDF =8 TO NCDF-l:DF=CDF';CDF> 

2440 FUR SK=8 TO 8 

2450 IF DFFc DFj.SK ;'=CP THEN 3K=9:CDF=NCUF 

:NEXT SKSNEXT CDF: RETURN 

2490 NEXT SKSNEXT CDF 

2478 IF NPDF=0 THEN SK=8: RETURN 

2490 FUR PDF=0 TO NF'DF-1 : DF=PDF< PDF > 

2508 FUR Sk=8 TO 6 

2518 IF DFFX DFj.SK J=CP THEN SK=3sPDF=NPDF 

2520 NEXT SKsNEXT PDF s RET URN 

2599 REi'l ff## initialize SF ### 

2608 FOR 1=8 ID 41 : REND X* 

2618 FUR J=l TO 5 

2628 SF (I j. J- 1 >=flSC< X ■$<■. J , J > >-65 

2638 NEXT J! NEXT I: RETURN 

2669 REi'l ### Winss i--u>< j ### 

2700 DNTfl UQI'iSV J .PLHNT J .K.6CiO 

£710 DhTh H6i'HE J .FLRN.J,Ki:JNSO 

2728 DfliN ftGHGUj.BHNRUXIOSW 

2730 Dffi'H EII''!8t,DHlRXj.CGk:uW 

2739 REl'l ### times <X) ### 

2800 DHTH HCGKTi,BOHLN,CEir'IO 

2818 DfiTfi FHLPR J .GIf'lttS J .HUNRT 
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2920 DATA KriQUW,LNRUX,F'"IOSMV 
2899 RBI ### Plus '; +: ' *** 

2388 DATA BFHriL,r:6Hii'!,DHl.JN 
2910 DftTfl 6KLflQ J HLF'iHR,II'lN0S 
2920 DATA LPQRU , f'lQRSW , NRS I X 

2999 RED ### diagonals (v) ### 

3000 DflTH HSI'lS¥*EiriQU 

3039 REM ### columns ( I ) *## 

3100 DATA flFKPU,B6LQU*CH1RH 

3110 DATA DINSX,EJOTV 

3139 REI1 ### rows <-> ##* 

3200 DATA ABCDEj.FGHI.-Ua.f'ING 

3210 DATA PQRST#UUHXV 

3293 RBI ### initialize DF ### 

3300 FOR 1=0 TO 10? STEP 1 2: READ X* 

3310 FOR J=0 TO ll:FOR K=0 TO 1 

3320 L=2*J+K+1 

3330 DFC I+.J^K )=ASC< X*< Lj.L ) >-43 

3340 NEXT K:NEXT .J : NEXT 1: RETURN 

3333 REP1 ### double figures ### 

3400 DATA l?l: lHlCiEll'H01P2>2£2B2J 

3410 DATA 3Jd3<3=:3?3S4?4:4=4?4H4640 

3420 DATA 4Ff .£5ES05.JS3e< eceE6IV=?A 

3430 DATA 71271 707P8>8B8D8J9?9E9K!? 

3440 DATA : A:E:K:0:Pj;>i£;Di.J<=<C<I 

3450 DATA =G=I=G>F>H>J?6?K?P£F£J£L 

3460 DATA AiSAIAK.AriAOAPBHBJBNCICPlCP 

3470 DATA OJCiLDNEKEriEGFRFWeSGWHTHW 

3480 DATA IRIXJSJXKTKXLRLVnSflYNTNV 

3493 RBI ##* compute DFF ### 

3500 FOR 1=0 TO 24= B< I >=«: NEXT I 

3510 FOR DF=0 TO 107:CF=4:NCF=0 

3528 FOR 1=0 TO 45B<3F<DF<OF#8>#I>>=l!NE 

XT I 

3530 FOR 1=0 TO 4:SF=SF< DF< DF,1 >,I ) 

3540 IF B<SF> THEN DFF<DF,CF ;'=SF:CF=CF+1 

!B<SF)=0!NEXT I: GOTO 3568 

3550 DFR DF , NCF >=SF : NCF=NCF + 1 : NEXT 1 

3560 FOR 1=0 TO 4 : SF^SFC OF < OF ,0 )# I ) 

3570 IF BKSF) THEN OFF-: DF ,NCF:j=SF:NCF=NC 

F+l:B<SF J=0 

3530 NEXT I: NEXT OF: RETURN 
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STM 



The nature of memory is certainly one of the most interesting topics in psychol- 
ogy. To remember something has been defined as 'to show in present responses 
some signs of earlier learned responses.' Why, though, do we remember some 
things and forget others? We may recognize someone we haven't seen in years, 
or call to mind a tune having heard only a few notes of it, but find it very 
difficult to remember, for instance, a telephone number. There are in fact two 
distinct types of memory: short term memory (STM) and long term memory 
(LTM). If you want to find out more about this intriguing topic we recommend 
that you read 'Introduction to Psychology' by Hilgard & Atkinson. 

This game tests your short term memory. Play it with your friends and 
family and see who can remember most. You will see this 'menu' on the screen: 




46 



DO YOU WANT TO PLAY WITH 

1. LETTERS? 

2. NUMBERS? 

3. OR 1 ONLY? 

4. OR DO YOU WANT TO STOP? 

Now you make your choice by entering 1 , 2, 3 or 4. Say you entered 1 to play 
with letters. A letter will now appear on the screen but only for a very short 
time. You have to enter that letter. The computer will then show you two 
letters which you have to enter, then three, and so on. Obviously, as the 
number of letters increases, remembering them all becomes more difficult. 
What is the longest string of characters you can remember? Can you beat our 
record of eight? 



10 Rti'l ############ S f I'i #*######*##* 
£0 DIP! Bs<20>#A$<28;> 



30 GKHPHiUb 8 




40 ? •'<hSC>L=_kESC>- 


:. rflB>0o you want to 


iay wit-h" 




50 ; "<£SfJ>L=KfcSC> 


:.Thb.h. Letters ?■■ 


60 Y "<£SC>t=3KESC> 


. ihb>2. Nunit-ers ?" 


7% '■:' "<hSC>L=-ktSC>- 


;TfiB>3. w OR l only 



80 ? "<tSb>C=J<tSCKIHB>4. CM" «3 you wan 

t. to stop \" 

90 ? "<tSC>L=J<bSCXlHB>"i:iNFUr ft 

100 UN ft GOTO 1 10* 128. 1 30*350! GOTO 90 

110 ft=2b:B=b5:GGi'U 140 

120 H=10: 6=48: GOTO 140 

130 H=2:6=4b 

140 GRftPHiLS 2:P0Kh 13,o:PUKL 20,0 

1j0 ? #6;" **^?S s t, iti x**S*:" 

ibO 0=1 

170 ft*="" 

1«0 FOR 0=1 IOC 

1 90 6$=CHKSC INK B+KNOt X*R > .:■ 
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200 POSITION 1H,4:? #6;BS; 

210 H*( LEH-; h* >+ 1 >=B* 

220 FOR M=l TO 100: NEXT w 

230 POSITION 10,4:? *b;" "j 

240 NEXT D 

2b0 Y "Answer :•';: INPUT b$ 

260 IF B*=fl* THEN C=C+i:6OT0 1?U 

270 POSH ION 0,4 

280 ? #6; "wrong " 



290 ? #6; "IT HHS 
300 ? #6; "SCORE 
310 ? #6i"Tll"E 



"iH* 

"iC-1 

" ; INK <; PEEK-; la ;#2b6+P 
EEk< 20 > VO . S v i 00 i " SEC . " 
320 ? "Oo you want to play again '';:INPU 

3Jk) IF fl$="Y" THEN 140 

340 RON 

350 GRAPHICS 0:END 
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One to Five 



This exasperating game, which we saw first on a CASIO calculator, takes quite 
some logical reasoning to solve. It is played on a board with nine positions set 
out like this: 



1 2 3 
4 5 6 
7 8 9 



A horizontal and a vertical line drawn through any one position will cross five 
positions in all. For instance lines drawn through position 4 will also cross 
positions 1, 5, 6, and 7. 



1 

4 

7 


2 


3 


5 


6 


8 


9 
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The positions on the board are occupied by a random pattern of digits between 
and 5. If you enter one of the positions (using the key shown on the screen) 
the digit on that position, and all the digits on the horizontal and vertical lines 
going through that position, are increased by 1 (except 5 which becomes 0). For 
instance if we had 



1 



1 5 4 

and entered 4, the board would change to 

3 2 4 



2 5 4 

The puzzle is solved when the board looks like this: 
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10 RBI **###**## One To Five ###*###*# 
20 U I f'l I Lf< 9>, &<■. 2 , 2 .:> , I N»t 1 > 

38 OPEN #2,4*0.. "K.! " 
40 GRAPHICS IS 

50 IL$= u euNEf-)SD2XC£'' 
68 FOR R=0 TO 2: FOR C=0 TO 2 
70 6<;R,C;>=0:n£XT C:NEXT ft 
80 GOTO 600 

39 REM ### screen #*# 

100 ? #6i"*' one to five #■' 

110 ? #b;" •" + + VibOSuB 200 

120 '? #6j" + h + t-":bOSUB 200 

130 ? #6;" + y + H":bOSU6 20W 

140 '?■ #6i" \ + + — — '•' 

150 FOR R=0 TO 2: FOR C=0 TO 2 

160 POSITION 3+5*C2+3*R 

170 ? #b;Iusc3*R-HJ+l,3*R+C+l>; 

1S0 NEXT C:N£XT_R 

190 GOSUB 500: RETURN 

200 '?■ #6; " ! ! ! ! " 

210 '?' *6;" I ! ! ! " 

220 RETURN 

299 REfl ##* 9et instruction ### 

300 6ET #2, IN: IN*=CHR*< In+128) 
310 FOR 1N=1 TO 9 

320 IF IN*=Il*<INj.In;' THEN RETURN 
330 NEXT IN:GOl'0 300 

399 REfi ##* execute move #*# 

400 R=INTO; iN-1 ;>/3>:C:=lN-3*R-l 
410 BCR,C;>=B<LR,C)-1 

42:0 FOR 1=0 TO 2 

430 BtR,I )=B<K,I >+l 

44W IF B<R*l)=b THEN B<R,1>=0 

450 fiU^O^U.O+l 

460 IF EKI.tONS THEN EKI#C>=0 

470 NEXT I: RETURN 

499 REfl #** output board ##» 

500 NZ=0_ 

510 FOR K=0 TO 2: FOR C=0 TO 2 
520 POSITION 5+5*C,3+3*fi 
530 ? #6jCHR*(B<:ft*C;>-4y+64;>j 
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548 


NZ=NZ-K B< R , C >=W J 




558 


NEXT C:NEXT R: RETURN 




599 


KEfi ##### main program ##### 




600 


FOR 11=1 TO 9 




610 


I N= I N 1 < STOCK >+ 1 ) 




6£@ 


GOSUB 408: REM execute move 


* 


630 


NEXT TJ 




640 


GOSUB 100SREI1 -screen 


# 


650 


GOSUB 388:REi'i get instruction 


# 


660 


GOSUB 408:REi'i execute move 


* 


670 


Nfi=NI'l+l 




680 


GOSUB 500:REPI output boar a 


* 


690 


IF N2<9 THEN 658 




700 
fi I'i'iC 


POSITION 8,lls? #6i"Sdone in 


e'jNFii 


718 


GOTO ?ia 
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Escher 



The work of the Dutch graphic artist M.C. Escher (1902- 1972), based as it is 
on symmetry and mathematical forms, appeals particularly to computer 
programmers. 

Now with the help of the computer you can produce your own patterns 
based on the same principles used by Escher. 

Consider the following pattern: 




?St5 




It is based on a mosaic in the Alhambra palace in Spain. If you look closely 
you can see that all the tiles are the same shape and that they are arranged so 
that the 'inverse video' of the white tiles shows the same pattern rotated 
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through 90 degrees. Escher studied such patterns and invented a game based on 
them. He devised a patterned tile such as 



N> 



and arranged to form a continuous pattern. 



S> 



</ 



<> 



which he rotated through four positions 



<y 



JUUUL 




o — <>^-^o — s> 




-^^^<^ -o 







\> 



r^r 
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This program does something very similar. After you have filled a 'basic' 
square with a pattern the computer rotates and shifts it to fill the screen with 
your own 'Escher'. 

First the computer asks for the graphic mode: 

Graphic modes: 

1. very LOW resolution 

2. LOW resolution 

3. HIGH resolution 

4. very HIGH resolution 

and you enter your choice, for instance 2. 

The the computer asks you to enter the size of your basic square, which 
you then have to fill, row by row, with colored pixels. The size of the pixels 
depends on the resolution you have chosen. Each key of the keyboard repre- 
sents one colored pixel. You can delete the last entered pixel with the backspace 
key. 

After you have filled your basic square the computer asks: 

Enter length of board (max . . . .):? 
and 

Enter width of board (max . . . .):? 

Now you fill the board with basic squares by pressing the N, W, E or S-key. 
These keys indicate the direction of each basic square, as it is displayed on the 
screen. (N = north, W = west, E = east, S = south). If you want to change the 
dimensions of the board, press the START key! 
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10 REfi »#### Escher yame ##### 
2a DIfi Kit, 1 ) 
30 open #2j4*0j"Ks " 
40 SOTO S@8 

yy REfi ##* initialize ### 
100 GRAPHICS 

110 ? HESC>L=J<hSCX IHB>E S C H E h 8 
fl PI £" 

120 7; XESC>L=J<ESC>L=J<ESCXTHS>6raphic 
■=• modes : •' 

138 ? XESC>L=J<£SC.kThB>1. very LOU res 
oiuti on" 

140 ? "<ESC>£=J<E8CX ThB>2. LUH resoluti 
on" 

150 ? "<ESC>L=J<ESC.kThB>3. HIGH resolut 
i on" 

160 ? "<ESC>L=J<ESCXTHB>4. very HIGH re 
solution" 

170 ? XESC>L=KESCXTHB>Hhici.-, mode do y 
ou want- : n -, 

180 INPUT flu: IF fiu=i THEN 200 
130 FOR 1=5 TO WIG : READ X:NEXT I 
200 READ PlOsREftD HCJREfiD FIR: READ OF 
210 ? :? "<ESCXTAS>Enter ■=■ ize of t-as ic" 
220 ? "< ESC X TAB > square (max U ;1NT<(P1R+1 
>/2)i") :'i 
23a INPUT SI 

240 IF SKi OR S1XP1K+1 )/2 ["HEN 210 
250 D I PI S£K SI-1 j.SI-1 > 
260 DATA 3, 40,2U,4, 5, 80, 46,2 
270 DATA 7,160,95,1., 8,320,13i,l 
230 RETURN 

233 REfi ### initialize screen #*# 
300 DL=PEEK< 560 H256#PEEK< 561 >+3 
310 POKE DL, 70: POKE DL+3,6 
320 FlEi'i Define your own colors ! 
330 SETCOLOR 0,2,8 
340 SETCOLOR 1,12,10 
350 SETCOLOR 2,3,4 
360 SETCOLOR 3,4,6 
370 SETCOLOR 4,0,0 
380 RETURN 
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399 REfl ### input basic square »## 

400 RESTORE 

410 KhHU !'iO0:RbHLi NCsREfiD NRsRENO OPh 

420 IF SIXNR+1V2 THEN 410 

430 SC=< NC-SI >/25SR=< Nfi-SI ~>/2. 

440 GRAPHICS MQG+16SGGSUB 300 

450 FOR R=B TO SI-i:RP=F:+SR+OFF 

460 POKE 8?* is POSITION 0*0 

470 ? #6 i ''enter data for basic square ,ro 

m "jsR+ii" "; 

460 POKE 87,fiOD 

490 FOR C=W TO SI-i:CP=C+SC:COL=l 

500 COLOR 2¥C0l:Pl01 CP..RP 

510 FOR M=l 10 25 

520 IF PEEK<?64X>255 THEN 540 

533 NEXT h:C0L= NOT COL: GOTO 500 

540 GET #2,X:x=/=;+208:IF XOS34 THEN 580 

550 COLOR 0SPLOT CPj>RP!C=C— 2 

560 IF C'<-1 I HEN R=R-i:RP=RP-i:C=SI-2 

570 NEXT C 

580 StK R , C >=X : COLOR X : F'LO T CP , RP 

590 NEXT CsNEXl R: RETURN 

599 REfl #«# dratt esc her picture *?t# 

600 ? "<E6C>L<CLEflR>J<ESC>lL=JEnter Iengt 
h of board (max "; 

610 ? INR flOSI >i " ) :"i!lNPU? lE 

620 IF Lt<l OR L£>flC.''SI THEN 600 

630 ? " Enter i.i.i i dt-h o t board ( max " i 

640 ? INI'- nR.-'bl :>i" ? : ';: INPUT Hi 

650 IF Hl<l OR Hl>fiR.-'SI THEN 630 

660 SC=( fiC-SISLE ;'--'2: Sfi=< f 1R-SI*Hi >'2 

670 GRAPHICS i'iO+lb:GOSUB 300 

680 POKE 87*2 

690 "? #6i''fiCi-kJ3G ile s c h e r@ ©CJjje" 

700 ? ffbi" dram with rCLJ'.t'LLJelLUlsO-a" 

f'lU POKE 87*110 

720 FOR R0=0F+8R TO <HI-1 .:'*Si+GF+bR STEP 
bi 

7ja FOR C0=aC f'u ( lE-i ;i;sSi+8c STEP Sl 

?4w IF PEEKi. 53.l7h )=b [HEN 600 
750 IF PEEK 1 :. 764 >=255 THEN 740 

760 GET #2,k:K*=ChR¥^x:':X=0 
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770 X=< X$= " N " )+2U X$= " E ■' >+3U X*= " S " )+4U 

Xs="H" > 

78« IF NOT X IHLN 740 

730 FOR R=a TO SI-UFOR C=0 TO SI-l 

see color sotR*o 

810 UN X 60SUB 660,870,880,830 

820 NEXT C:NtXT R:NEXT CO: NEXT Ru 

83a POKE 87,1: POSIT ION 0,1 

840 ? #6i"GEJ3e fid r a w i n 96 eEJJtG" 

850 RETURN 

860 PLOT CO+CRO+R: RETURN :REI'I <ESOC-3 

870 PLOT CO+SI-l-R,RO+C: RETURN :REf'l <ESC 

880 PLOT CG+SI-l-CRG+SI-l-R: RETURN :RO - l 
<£SC>£=3 

880 PLOT CO+R,RQ+SI-l-C: RETURN :RtJT <ESC 

yyy REi'i *#### mam program ##♦## 

9 WW 60SUB 1 0W : Khi'i initialize * 

910 GOSUb 400:REl'l input basic square # 

920 GOSUB 600: REi'i draw esc her picture # 

930 IF PEEiU 53279 X>6 THEN 33a 

340 POKE 764,255: GOTO 32a 
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Genius at Work 



Play this simple game to find out how good you are at thinking mathemat- 
ically. After you have entered the number of players, the computer displays 
seven numbers and a larger 'target' number and asks 

OPERATION? 

You must pick two of the numbers and one of the four simple mathematical 
functions: 

addition + 
subtraction — 
multiplication x 
division / 

For instance, if you enter 7 + 18, the computer asks: 

Is this your final result? 

If you enter N, the computer calculates 7+18 = 25 and replaces the number 7 
and 18 in the initial list by 25. Now you choose again. Your task is to get a 
final result as near to the target number as you can. 

The character of this game is simplicity, so the whole family can play. 
When one player has finished their go, press any key to start again. Now you 
can find out if there is a genius in your family! 



la Kfcl'l #»####«# Htm us Ht wor-K ######## 
20 Dil'l 0', ? s,F$< 10 ,',£4\ 1 ) 
38 T=0:x=0:k=0 
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4U 60 i o y@w 

yy REi'i ##* random numbers ##* 

100 FOR 1=1 TO ? 

1 10 Oc 1 >=INT< itf*RND( a ;+i ^ 

12tf iF IMK0X0.25 THEN DtI^=lNT<4Xf{H£K8 

;>+l >3i:5 

130 NEXT 1 

140 F=lNT< C 9*:RND«, >+i >$100 > 

150 RETURN 

199 REf'l #»# display #*# 

200 ? "<ESC>lL<CL£HR>3^ESC>t=3iry to apro 
ach this number: "iF 

210 •? "<ESC>L=3vou have got these number 

s:<ESC>IXr 

220 FOR 1=1 TO ? 

230 IF DCiX>0 THEN ? EKlJi" "J 

240 NEXT I 

250 '?' 

260 RETURN 

239 REfi #*# input operation ##* 

300 '?' "<.ESC>L=3Ent,er operation ";: INPUT 

F* 

310 FOR N=l TO LEr<KF$) 

320 E=flSCC F*C N > ) 

330 IF C 41<E> HND CE<48]> THEN (4=yHLCP$<; 1 

,N-l > >: B=UftLC F*C N+l ,I_EN<> F* >> >: RETURN 

340 NEX T N 
350 60T0 300 

399 REf'l ### compute new numbers ### 

400 FOR d=l TO ? 

410 IF LK J >=H_THEN DC J >=0:GOTO 430 

420 NEXT J:60T0 460 

430 FOR 1=1 TO ? 

440 IF UCI>=B TFiENON E r 4i 60SU6 500*510 

,0,520*0*530: UhlF=lk I >:RE1 URN 

450 NEXT I:D<LJ>=H 

4F;0 ? "<;ESC>C2a<ESC>L2JI":X=0:POP :6QT0 8 

10 

500 OC I )=H*6: RETURN 
510 DC 1 ->=I4+B: RETURN 
520 DC I ;=*+-&■: RETURN 
530 DC I J=INK IV6 >: RETURN 
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599 REf'l ### compLrte points ### 

600 ? "<ESC>lL=3Is this your final result 



bie 


INPUT 2s 


620 


IF 2$<>'"t"' 1 HEN POP :GOlO 810 


630 


? :? "Voli have: ";UftLFi" on " if- 


640 


X=5-HBS< F-UflU- > 


65*1 


IF X<0 THEN X=0 


660 


IF X=5 THEN ? *<ESC>t=JMELL DONE!" 


670 


T='l+X:R=R+1 


680 


? *<ESC)C !S 3ThiS makes "iXj" points" 


690 


?• "<.ESC>L=3Noui you have "i'i'i" points 



?00 ?• " m ''iRj" rounds* 

710 ? "<ESOt=JHn aver-aye of " jINKT*108 

/R,v'100j" points per round" 

720 ? "<ESC>lL=JH9ain "j: INPUT 2$ 

730 IF 2*="V" THEN POP S60TO 800 

740 RETURN 

799 REfl ##### mam program ##» 

800 GOSUB 100:REI'! random numbers # 
810 GOSuB 200: REf'l display # 
620 GOSUB 300:REfi input operation # 
830 GOSUB 400: REf'l compute new numbers # 
840 GOSUB 600: REf'l compute poims # 
850 ? "<ESC>L<CL£hR>:T':END 
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Shark Hunt 



For five days now you have been adrift in your boat searching the seven seas. 
Suddenly you see a slight ripple on the mirror-like surface of the ocean — there 
it is, your quarry, that terror of the deep — the shark. Move your boat using 
the cursor keys or the joystick. Your echo-sounder will tell you how close you 
are to the shark — the nearer you get the higher the note it gives. Stray too far 
from the shark and you are told 

SORRY; YOU WENT TOO FAR 

When you think you are close enough you can take a shot at the shark by 
pressing the space bar or pressing the red button on your joystick. If you hit 
the target you will see the message 

THAT'S IT! CONGRATULATIONS! 

Unfortunately you only have 200 ergs of energy to use. Moving your boat and 
firing your gun both cost energy. If you use up all your energy the computer 
tells you 
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YOU RAN OUT OF ENERGY 

At the end of the game you will be given information on your performance as a 
shark hunter. 

10 Rfci'i ff#ff### 3 h a r k h u n t ##*### 

2y Dii'i CO$<&l>*R$(i jj!*3;,V$<iiJ 

30 OUT rtX3*8.»*STIK<8*l ) 

40 OPEN #2,4,0, "K.: " 

5a POKE ?52*1 

68 60 JO 1508 

93 KEi'i ### initial i2e ##* 

100 Cuz—" 'sorry, you tuent too far fiTha 

t's it. i ijonyraT.ijiaT.. ionsi&You ran out, of 

energy 

118 X*="l r":v?="u d" 

120 FOR Tu=0 TO 2: FOR NO=0 10 ? 

130 RENO R: TLkTLi,nu>=R 

140 NEXT NO: NEXT To 

150 OflTH 204,133,204,133,284,210,284 

160 DflTfi 133,83, 125* 147* 176* 193*204 

1/0 DfiTfl 218,218,24,21,18,1-5,12,3*6,3 

168 FOR 1=0 TO 3 

1 30 REHD X , V : 3 i 1 KX I , 8 >=X : 3 T 1 K< 1 , 1 >=V 

200 NEXT 1 

218 OhTP 3*3*3*— 3*3*0*0*0*— 3*3 

220 DfiTH -3,-3,-3,0,0,0,0,3,8,-3 

230 RETURN 

233 REIT ### initialize one game ### 

300 N6=N6+1 

310 SX=iN T< ,''0SRND< 8 > >-35 

328 SV= I NT < 70#RND< > >-35 

330 D1=h8S<6X:j+h8S<SV> 

.340 fjD=D 1 : 30=0 1 : SH=8 : H 1 =0 : NS=8 

358 EN=208 : UX=0 : UV=0 

360 RETURN 

398 REIT ##* screen ### 

400 ? "<esc>i:<j<esl:>ii:=j" 

410 ? " £ ... 8 

8 S H ft H K HUNT £* 
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415 ? "S £" 

420 ? "<ESC>£=:i<ESCXTOB>ftsourrt. of energ 

y: "i£Hi" eras" 

43E1 POSITION 2*17 

441.1 v "(love t>u using the cursor keys or< 

ESC > iim X ESCX TAB X ESC >< TOE >< ESC X TfiB> 

the joystick" 
4^.0 "■• "Shoot b'-i pressing the space bar o 
r< ESCX TOB X ESC X TOB X ESC X TOB X ESC X TOB 
> the red button" 

468 POSITION 16 j. 13 

478 ? " D i r ec t i on * i 

488 POSITION 2,22 

490 ? "press <eSTT4RT£> r -,o start game"; 

508 IF PEEK 1 ; 53279 X >6 THEN 588 

518 PUSH ION 2 #22:? "< ESCX SHIP IX BHCK S 

XESCXSHIFTX INSERT;" ; 

528 Kb TURN 

593 REIT ##* input speed ### 

688 UX=8:UV=8 

618 IF PEEKC 764 )=255 THEN 678 

628 6ET #2* IN 
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638 Ma=3*< < IN=42 )-< 1 1-4=43 > > 

640 W=3*< < IN=S1 >-; iN=45 > ) 

650 SH=< IN=32) 

660 RETURN 

670 IN=STICK<0>:IF INOIS THEN UX=ST1K< I 

N-5,8 ): Uv=STT K< In-5, l j 

688 SH= NOT STRI6<8> 

690 RETURN 

699 Rtl'l ### compute ari-t-ance et,c. #«atL_ 

700 IF NOT SH THEN 750 
7 1 NS=NS+ 1 : EN=EN-2£D I 

720 IF EN<=0 THEN EN=0: RETURN 

730 HI=<DI*RNO<0><=1 > 

750 SX=SX-UXJ SV=SV-W 

760 EN=€N-< UX< >0 >-< UV< >0 >- 1 

770 IF EN<=0 THEN EN=0: RETURN 

780 SX=SX+SGN< SX >: SV=SV+SGN< SV > 

790 01 =WBS< SX )+flBS< SV > 

800 IF DKI'IO THEN 00=01 

810 RETURN 

899 REI't ### output ### 

980 POSITION 20,9:? "£ e<ESOC=3<ESC><C+ 

TKESOt+JG: ik Q. y<ESC>C=J<ESC>C+3<ESC>C+3 

e e"» 

9 1 F'OS III ON 20+S6N< UX > * 1 

920 ? X$< SGN< UX >+2 , SSN< UX )+2 > ; 

330 POSITION 28,18+SGN<UV) 

940 Y V$< SGN< UV >+2 , SGN< U V >+2 > ; 

958 IF SH THEN GOSUB 1080 

960 SOUND 0,01,18,15 

970 14= 188: GOSUB 11 88 

988 POSITION 25,6:? EN;" ergs "; 

998 RETURN 

999 RED ### shoot *## 

1008 FOR 1=220 TO 250 STEP 5 
1010 SOUND l,I,10,15:w=2:GOSOB 1188 
1828 SOUND 1 ,8,8,8= W=5:G0SUB 1188 
1838 NEXT I: RETURN 

1099 REI't ### Mil ### 

1100 FOR WH=1 TO N:NEXT WW: RETURN 

1199 REI'I ### ena of this game ### 

1 200 ? " < ESC X SH I F T >< ClEWR X ESC >t= J " ; CO* 



( 27*Cfl+l *2?*< Ch+1 ) )i"<ESC>C=Q" 

1216 FOR NO=0 TO ? 

1228 SOUND 0#TtKCB..NG)*18#t5 

1230 W=25:60SUB 1100 

12+0 NEXT NO: SOUND 0*0*0*0 

i25w i : "Stating distance : ";SO 

, " m. " 

12S0 ? "Number of snots : ";Nb 

1278 v "Vou approached with in : ",|'1D 

;" (»> 

1200 II- HI CHEN ? "Vou hit it from 

: ",D1*" m. •■ 
1290 Rt=50-Dl.-'2 

1308 IF Hi THEN RE=5€H£N/4+SD/10 
1310 RE=IN"RRE> 
1320 JF RE<0 (HEN Rt=8 
1330 IF RE > 10O THEN RE=10ti 
1340 TR=TR+RE 
1350 IF RE.X'lR THEN ITR=RE 
1360 ? "<ESC>C=JRe<i)ards, on a scale of l 
0y: " 

i3?0 ? "This game : "*RE 

1380 ? "Average over ";Nb*" games : 

"iiNKTR/NG) 
1330 ? "flax i mum : "jl'IR 

1400 RE I URN 
1 49a Ktl'i ##### «a i ri program ####* 

1500 BOBuB i0a:REri initialize * 

1510 SOSUB 300:REi'l initialize i oame # 

1520 BOSOB 40y:Rt!'l screen # 

1530 GOSUB b00:Khl'i input, # 

1540 BOSUB i ; '00:REfi computing # 

1^50 60SUB 900:RErt output ff 

1 5B0 CH=3SX EN=0 >+2:£H I -K 1 > 1 00 >- 1 

1570 if CPK0 THEN 1530 

15B0 B03UB 1 £00: POKE ?S4*255 

1590 ■•' "<ESC>C=Jflnother game ? ";:Gtf »2 

,In 

it;u0 ii- iN=ys ihen i&iw 

lblO '( "<£SC>L<CL£flR>J"stNO 
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Shakespearian Shuffle 

Shakespeare, one of the world's greatest writers, and chess, the king of games, 
are combined in this unusual puzzle. 

Letters are arranged on a chessboard like this: 



T 







B 


E 







R 


N 





T 




T 







B 


E 




T 


H 


A 


T 
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S 
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E 




Q 
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E 


s 


T 


1 
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. 
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M 
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H 


A 


K 


E 


S 


P 


E 


A 


R 


E 




1 


6 





3 



A chesspiece, the knight, then moves around the board as it would in a normal 
game of chess. As it jumps from one square to another, the letters or symbols 
on the squares are exchanged. In this way the text on the board is jumbled up. 
The computer will ask you 

LEVEL? 



and you enter the number of moves you want the knight to make. Obviously, 

68 



the higher this number the more mixed up the board becomes. 

You will be shown the board after the knight has made his moves. Your 
task is to unscramble the text by moving the knight back around the board. 
Enter a number between 1 and 8 to move the knight, as shown. 





1 




2 




8 








3 






* 






7 








4 




6 




5 





la Kbfi ft##ff* Shakespearian shutfle ##### 
20 Dlfl H?«7 J,HV< ? >,H$(. £*},&$<■ t&>AW. l :> 
30 OPEN #2 J .4,8,"K: " 
40 GOTO 500 

99 fiti'i ### initialize #*# 

100 X0=i:VO=l 

110 REHD Bj:HS=e* 

120 FOR K=0 TO ? 

1 30 REfiO B*8! H>'.<-. K >=H : HV< K >=B 

140 NEXT K 
150 RETURN 

199 REi'i #*# knight's move ### 

200 XS=H>X IT ? : VS=HV< IT > 

210 IF KS+X0>8 OR XS+X0'<1 OR VS+V0>8 OR 
VS+VlKl THEN n=lNKRNO';0 )*8>:60T0 288 
220 XN=XO+KS: VN=VO+VS 
238 RETURN 

299 REi'l ### Change letters ### 

300 P=X'N+< VN-1 )%&: U=XO+c VO-i ;..tS 

3 1 W$=8^; P ,P >: B$*. P , P .)=£:*■; <J , g .:■ : B&, U , u >=H 
* 
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328 POSITION l+XO,l+VO 

338 ? #6»B*<<V0-1 )*8+X0#<; YG-i mm+ku) 

348 POSITION 1+XN,1+VN:? *6j"f.; 

358 XU=x;N:VO=VN 

36a RETURN 

399 REI'I #*# display ### 

40a POSITION O,0: ? #B;"shaKespeare shutt 

Le ";:? #6 

410 FOR K=l TO 8 

420 ? #6j" "je?<CK-l JSy+l,K»i:^ 

430 NEXT K 

440 POSITION 15,3:? #6;"8 1" 

45W POSITION 14,4:? #6i"? 2" 

460 POSITION 16,5:? #6i"£#e" 

470 POSITION 14,6:? #6; "6 3" 

480 POSITION IS,?!? #6;"5 4" 

490 RETURN 

499 REI'I ##*## mam program ##### 

580 ? "<ESC>C<CLEHR>3<ESi::>L=J<ESi::>t=JEriT. 

er level : u j: INPUT L 

510 GRAPHICS IS 

520 60SUB 188:REIT initialize # 

530 GGSUe 400: REI'I di-spiay # 

540 FOR K=l TO L 

550 n=INT<RNO<0>*8> 

560 60SUB 280: REI'I knight's move # 

578 GOSUB 380:REf'i change letters # 

580 NEXT K 

590 POSIT I UN 0,11:? #6; "enter move : 

u - 
r 

608 POSITION 12,ll:GET #2,l'l:? #6iCHR*<rt; 

:n=n-4y:IF PK8 OR l'l>, ; ' THEN 59U 

618 60SUB 280:REfl knight's move # 

620 SOSUB 388: REI'I change letters # 

630 IF «*OB* THEN 590 

648 POSITION 8,8:? #6; "congratulations! 

650 POSITION 8,18:? #8;"£do 'you want wj 

play agamy ? ■■ -, 

660 GET #2,li:lF f'l=S9 THEN RUN 

670 END 

680 DhTH U'to be ornot to fc«tLJ that is t 
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he quest, i onQOU! i i -i- ' a m ShaK espe-are C&UPS J 

e 

-1,-1,-2 
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Explosion 



Most computer versions of EXPLOSION set out the board for two or more 
opponents to play on. With this program you are pitted against the computer 
itself. Are you up to the challenge? 

EXPLOSION is played on a board of 3 x 3 or 4 x 4 squares. The 
computer will ask you to enter the size of the board you want. 

Each square on the board has a capacity equal to the number of squares 
directly adjoining it. This means that corner corner squares have a capacity of 2 




edge squares have a capacity of 3 
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and central squares have a capacity of 4. 




You and the computer have checkers, of opposite colors, that you place on 
the board in turn. You may place a checker on any empty square, or on any 
square which already has one or more of your own checkers on it. A square 
will 'explode' when the number of checkers it carries reaches its capacity. An 
exploding square empties, its checkers spreading out, one to each neighboring 
square. These checkers will 'take over' any opposing checkers on these squares. 

As the game progresses the explosions get bigger and bigger. Eventually 
the whole board will explode in one color. If it's your color you've won! 



la fttn ##»## Explosion ##»#» 

20 1 1'l RB< 5 , .-i .i r 'ciK 5 #5;, Si < t> , 5 ) r HNS 1 ; 1 

30 OPEN #2*4#8*"K! " 

4gi GOTO 1300 

93 RErl #ff# copy SB w> Kb ### 

100 FOR ? : ;=1 70 Si: FOR v=l TO SI 

1 1 SBC X r V .5=KB< X > V > 

120 NEXT V8NEXT XsRETURN 

199 REl'l ### copy R6 to SB 99* 

200 FOR X=l TO Sis FOR v=l 10 SI 
2 1 RB( X * V >=SB< X#V ) 

220 NEXT V:NEXT X: RETURN 

299 REl'l ### add to neighbours- ### 

380 SB< EX,EV >=PL#< Hb'Sf. SB'; EX,EV ) )+l ;■ 
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3i a if di find sixexjEV) then ggsob 700 

320 RETURN 

399 REl'i »»# execute explosion ### 

480 SBC X j. V )=$&(. X , V >+PL 

410 NE=8 

420 EX=X:EV=V:IF 01 THEN SOSUB 788 

438 XF-8 

448 FOR X=l TO SI: FOR V=l TO SI 

460 IF fiBS<SBtX#V>KST<X.V) THEN 568 

470 XP=1:NE=NE+1 

490 IF DI THEN 60SUB 808 

500 SEw; X , V >=SB< X , V >-ST< X * V >*PL 

518 EX=X:EV=V:IF Di THEN 60S0B ?08 

528 EX=X:EV=V+1:60SUB 380 

538 EX=X+1:EY=V:G0SUB 308 

548 EX=X:EY=V-l: SOSUB 388 

558 EX=X-l:EV=V: GGSUB 380 

568 NEXT V:NEXT X 

578 ET=<NE>SI*SI> 

588 IF XP HNO NOT ET (HEN 438 

598 RETURN 

599 REM ##* evaluate situation ### 
888 EN=8 

818 FOR X=l TO SI: FOR y=l TO SI 

628 EN=£N+SEK X#V > 

838 IF -SB<X,V><ST<X J .V>-1 THEN 688 

648 EN=EN-2 

658 EN=£N+l8*< < SBC X+l Vt' >=ST< X+l #V >-l >+<, S 

Be X, V+l >=ST< X.V+l >-l >K SB< X-l »V >=ST< X-l , 

V >-l >+< SBC X#V-1 >=ST< XVt'-I )-l > > 

668 NEXT V:nEXT X 

678 RETURN 

899 REfT ### output one value ##w 

780 POSITION 3+3*EX#2+2*EV 

710 ? #6*CMR*<feS<SB<EX*EV)>+48+<S+2*PLJ 

*32$< SBC EX , E V X >0 .» ;■ 

728 RETURN 

799 REN ##* output explosion ### 

888 SE:=SBC X , V > : EX=X : E V= V 

810 FOR 1=15 TO 1 STEP -1 

820 SOUND 8,88*8,1 
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&30 i£<x,Y>=-ie:c-.-usue 7m 

840 FOR H=l TO 8: NEXT W 

650 S6<XA'.)=S6:GGSUB 700 

868 FOR W=l TO 5: NEXT H 

8?0 NEXT i: SOUND 0,0,0,0 

88W RETURN 

839 KEPI ### player's move ### 

900 POSITION 0*11:? #b;"VUUR TORN x: r t» •, 

910 6ET #2,nX:i'IX=lNRflX;>-48 

920 IF flXO OR f'IX>Sl THEN 910 

930 POSITION 10,1 IS? #b;"y; 

940 GET #2,nV:l'lV=INTaiV>-48 

950 IF I1V<1 OR C1V>SI THEN 940 

960 IF R8<riX,nVX0 THEN 900 

9?0 POSITION 0*1 15? Via* "i 

980 60SUB 100:REI'I Sfa -> re # 

990 X=l'IX:V=f1V:DI=l 

1000 bOSoB 400! REO execute explosion # 



1010 IF ET THEN 1600: REP) end 
1020 60SUB 200:REl1 rb -> sb 
1030 RETURN 

1099 REPI #*# computer's move ### 

1100 6E=1000 

1110 FOR TX=0 TO SI: FOR TV=0 TO SI 
1120 IF RB<TX,TV>>0 THEN 1190 
1130 60SUB l00:REf1 sb -> rb 
1140 X=TX:V=TV:DI=0 



* 
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158 SOSUB 480: REH execute explosion # 
168 IF ET THEN fTX=TX:ITV=TY:60Tu 1200 
170 60SUB 600s REM evaluate situation # 
180 IF EH<BE OR EN=BE HMD RNEK0X6.4 TH 

EN BE=EN:fl>;=TX:flV=TV 

198 NEXT TV: NEXT TX 

20W SOSUB 180: REH st> -> rb # 

218 X=l'iX: V=l v iv:Dl=l 

228 GOSUB 400: RET) execute explosion # 

238 IF ET THEN 1688: REIT end # 

248 GOSUB 288: REIT rb -> Sb # 

258 RETURN 

299 REM ### mam program #»# 

388 GOSUB 1488: REiT initialise # 

318 IF CiT THEN i33w 

328 PL=i: GOSUB 980: REIT player -s move # 

338 PL=-i: GOSUB 11 88: REIT comp's move # 

348 NT=N'I'+1 

358 GOTO 1328 

399 REIT ### initialize ### 

488 ? ■ , <ESC>L<CLEOR>J<ESOC=JEnter size 

of board (3 or 4) "j 

418 1NPOT SIsSI=lNT<SlJ 

428 IF SK3 OR SI>4 THEN 1488 

438 FOR X=8 TO 5: FOR V=8 TO 5 

448 RB< X r V >=8 : SB 1 ; X , V ^=8 : ST( X * V >=8 

458 NEXT VsNEXT X 

468 FOR X=l TO Si: FOR V=l TO 91 

478 STt XVV >=4-< K=l>-<. X=SI >-< V=l )-< V=SI > 

468 NEXT V:N£XT X 

498 ? "<ESC>£=J|!irt - '0 starts <you or me.) " 

588 INPUT fiNT:Cf'l=<fiN*="V" .■' 

518 GRAPHICS 18 

520 ? #6i"i-CJ.J-J3 explosion tjjjjg" 

530 POSITION 5,2:? #6; "XI x2 X3"; 

540 IF SI =4 THEN ? #6;" X4"i 

550 FOR V=l TO SI 

568 ? #6:? #6:? #6*" V"iV; 

570 FOR X=l TO 61:? #6;" " iR&<- XA'>; 

568 NEXT XSNEXT V 

598 RETURN 
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1589 REl'l ffffff end #*# 

168@ POSITION 8,1 

1610 ? #6; "an eternal expiosionresultecC 

LJ SO '■; 

1620 IF Pl=1 ihln ? #8;"eyouG *i!60TO 

1 640 

163a 1 K&i'&td " ; 

1640 ? ff6;" have won in ";nj;" turns", 

1650 6010 1650 
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New York, New York 

This original and exciting game puts you in a helicopter high over New York, 
looking down on the city's streets. At the moment they are deserted, but soon 
traffic will appear, and it's up to you to keep it moving. You do this by 
controlling the city's traffic lights. When a car (represented by a square) 
reaches a red light it will stop. Each traffic light bears a symbol — pressing the 
key bearing that symbol changes the light to green and the car will continue on 
its journey. 

At the start of the game enter a level of difficulty, after which you will see 
the streets and cars. The game proceeds in rounds, during each of which the 
cars move 'one step'. 

You start with 200 points. You gain 40 points for every car that gets right 
across the city. However, if two cars collide at a crossroads you lose 200 points, 
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and every time a car has to stop at a traffic light you lose 10 points. If you run 
out of points the game ends — if not it lasts 200 rounds. The more points you 
get, the better traffic cop you are! 



It! Rfc.nl #*#### New yot-K, Metu Vor-K ###### 
28 U i f! Cfit 4 >*LH< 4^Li! 4 ) 

$4 Li i i'l CfK 8 > , 8F% & > , y: 8 .:■ , b< 8 > , LUX 8 .3 

40 Dif'l UJ< IK J,KIC 1 J 

be Din D«2>jpS«26>#l*<3>j 

by upen #6, a, a, 1 '::;: " 

78 GO f 1 Ohm 

hh KEl'i ### initialize ### 

lOti FUR 0=1 TO 4sR£f£i LisuK'f. U j=u:n£? : ;T C 

113 Lift Tfl 234 j. 24b , 438 j. 426 

120 FOk l=o TO JsKEftD F'CLK L ;'=i'i:NEX I L 

130 UHlT-f 32j.37j.13Jj.i20 

i4t, FOk C=i mj y:REHU Ds SR C >=Di NEXT C 

ISO LiHlH 8,2Oj.SO2j.4y0j. Ib0j.352j. lbSj.350 

188 FOR 01=1 TO , : ' STEP 'd 

l?& REHU Uj.LO 

i km u( c i j=o j u< c i + 1 . :,=I -' 
i00 lu< oi .)=lu:loc ui+i ; ,= lu 

yyy NEXl 01 

218 UHiH 32,-1 j.-32 j 2 j 2j.33j.-2j.-32 

228 e$='*e Lvj Lvjt'tvjo etvje lacuuuujGCuiu 

LIU M " 

230 D$="(i' lij" 

240 o$='' a y a '-'" 

i:sO L$=" y 

iOO '•" ■' : ;£Su>L<CLEHR>J : ;E8L:>L=JL.evei Cl-3) 

■■ -, : i NPU i LE 

iV'8 LE=iNKLh.) 

xwy if LtU OR LE>3 IHEN 00 ro 268 

280 LE=lb-4KL£ 

J00 PU=20W 

JlO FOR 8=1 TO y-'-S'.. 6.j=8:neki B 

320 FOR 0=1 TO 4!|_N< G.:=0:nE; :: ; I S 

338 RETURN 

388 REI'I ##» screen ### 
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SSSNEXT F 


::? LS:'f 


• L* 


SSSNEXT R 


::r L$S"? 


LS 


S*:nEXT F 






'"£!" 






■ "W" 






. »£« 







400 GRAPHICS 8: POKE 752*1! POSITION 11*1 

W2 <■ "New vorK, New vork:;ESC.;t=3<ESC;L= 

K£SC;C=J" 

410 FOR R=0 TU J:? 

426 FOR R=0 TO J:? 

430 FOR R=0 TO 3:? 

440 POSITION 9,?:? 

450 POSITION 30 w': 

460 POSITION 9*18! 

470 POSITION 30 j. IS:? "S" 

480 FOR C=l TO 4:l=0:SOSOB 578 

490 POSITION 1+V,E:? "££'136" 

500 FOR L=l TO 3:G0S0B 570 

510 POSITION l+V,E:? "LIT 

520 NEXT I_:NEX( C 

530 POS I T I ON 5*3: ? ■' po i nts : " 

540 POSITION 25*3!? "Rounds:" 

550 POSITION 7,22:? "LIGTHS: Red = ££ T J£ 

, Green = Oil" 

S6K) RETURN 

5 70 X=CR<; C ;h-L K L .:■:£= I N T ■; X/32 ) 

580 P=32+E:V=X-P 

590 RETURN 

699 REi'i ### car ari ves ### 

700 H=I MT< LE*RND< B>> 

718 IF S<6^=0 HNLi HOl I HEN RETURN 

72(1 IF S<;C>=0 hnD 0=1 ThEn Ch<C>=SP<C>!R 

tl'i new car 

738 IF S<Cx>3 HND S<CX>9 THEN SOTO 760 

74ti x=4+CH i ; C HlXK C >-32SlNT ( ( Cfi(. C J+LOt C > ') 

/32 > : V=5+ 1 N (X < CN< C >+L0< C > V32 > : POS I T I ON 

X,Y:6E1 #6*S"! POSITION X*V:PUT #6*S 

750 IF 6=148 THEN PU=PU-10! SOUND 0*80*10 

* 15: FOR N=l TO 20: NEXT RESOUND 8,8*0,8: R 

ETURN 

768 POSI fiON 4+CfKC>-32*INT<C0<CV32>*S+ 

I NT< CfK C V32 >: '? 0* 

770 CH< C>=Ch< C 3+w C > 

780 S<C>=S<;C>+1 

c'90 IF S<C>=15 THEN S< C;=0:PO=PU+40:FOR 

H=88 TO 38 STEP -i:SOOND 8,H, 18, 15: NEXT 

H: SOONO 8,8,8,8: RETURN 
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Hi-iM ;:<=4+r:Hc C >-32#INKCft<CV32>!V=5+INT<; C 
PK C >.<"32 ) : POS I T ION X , V : 6E T #6,6: Put: IT 1UN 
«,V:PUI #S,S! POSITION X*V 

tao if s=ibu then ? c$< 2*0-1 *2*cj! return 

820 SOUND 0,100,0, 15:F0fi H=l TO 200SNEXT 

h j sound 0,0,0,0 
930 PU=PU-208 
840 S< C J=6 
950 RETURN 

ESS RETT ### change ligths ### 
yaa CR=< K=4? >+£*■; k=46 >+3:?x K=82 ;>+4SX K=S3 .> 
910 IF CR=0 THEN RETURN 
328 SOSUB 970:? "t'H" 
930 LN< l:R.3=LNc.CR>+1 
940 IF LN<CR>=4 THEN LN<. CR.J=0 
950 GQSUB 970:? "61706* 
960 RETURN 

970 POS I T i ON 1 +CR< CR J+L I ■: LN< CR > J-32* I NT< 
< CR< CR >+Ll< LN< CR > > V32 .J* I NT ( < CR< CR HLK L 
Ht. CR > > V32 j 
390 RETURN 

999 REl'T *#### mam prograai ##### 

1000 BOSU6 100: RETT initialize # 
1010 B0SU8 400:R£fi screen # 
1020 FUR C^l TO 8 

1WJ0 SOSUB 700:REf'l car drives # 
1040 K=PEEK< 764 >: POKE 764,255 
1050 IF K<>255 THEN UUSUB 900: RETT change 
1 1 crwvs 

1060 NEXT C 

1070 NR=NR+1 

1090 if PLK0 THEN PU=0 

1090 POSITION 13,3:? Pu;" 

1100 POSITION 33*3!? Nft 

1110 IF PU>0 AND NR<200 THEN SOTO 1020 

1120 POSITION 5,22: POKE 752*0 

1130 r "<ESCXSHIFTXBftCK SXESOC2IKESC 

:Km6xESCXTft6>unce again ";: INPUT K$ 

1140 iF k:*="V" THEN RUN 
1150 END 
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Key 



Searching for a key you have lost can be an aggravating experience at the best 
of times, but when you have to find it as quickly as possible and, what's more, 
it's hidden inside a computer the whole thing becomes very exasperating, but 
also very challenging. 

The computer has stored inside it a string of 20 ones and zeroes. 

I I 00 I I I I 1010101 10 

These figures can be shifted cyclically, that is, digits are moved from the 
lefthand end to the right. This is done three times and the numbers in each 
column added, for instance 

row I — > 00 10101 I 1010101 10101 

row 2 -> I I I 1 I I I I I 00 I 1 
row3->OIOOIOIOI I I 010 10 I 101 



sums -» 022 I 2 I 222230303 I I 303 

This is all kept hidden from you: it is in fact the key you must find. 

What you are shown are the three rows of numbers, each shifted again. 
For instance if the top row is shifted two positions, the middle row four 
positions and the bottom row eight positions you will see 



10 101 I 10 10101 1010 100 

I I I I I I 00 I I I I I 

1 I 1010101 I I I 00 I I 



20000 1 12 I I I I 2331 01 22 
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You are not shown the sum of the new columns but the difference for each 
column, between this sum and the first 'hidden' sum. In the first column, for 
instance, the hidden sum was and the new sum is 2 so you see 2; in the second 
column the hidden sum was 2 and so is the new sum so you see 0. You must 
now shift the three rows until they are the same as the hidden key, when, of 
course, all the differences will be 0. The rows are numbered (the top row is 1, 
the middle 2 and the bottom 3) so that if you enter 

ROW = 2 
STEPS =1 

the middle row will shift one position to the left. 

How few turns will it take you to find the key? It has been done in as few 
as 10. 
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1 Pi RFi'l iHt-lUHHH H UHHUrit k e <J iriHHHUHHHHHHHfr 

20 Difi T<4,»;a8)»fl$<28) 

36 GRAPHICS 2 
40 GOTO 600 

99 REfl ### initialize ### 

100 ? #6;" *## key *»:" 
110 ? #6; "TURN : ";NT 

120 (&=" 1010010101 11010101 10" 

130 GGSUB 200: REfl randomize rows # 

140 FOR K=l TO 20 

150 T< 4*K >=T< 1 ,K >+K 2,K >+T< 3,K > 

160 NEXT K 

170 GGSUB 200: REfl randomize routs # 

180 RETURN 

199 REfl *## randomize rouis »## 

200 FOR J=l TO 3 

210 R=INT<;RND<0)*19+1 > 

220 FOR K=l TO 20 

230 OIS=K+R 

240 IF DIS>20 THEN DIS=DIS-20 

250 T< J*K >=UHL< ft*< DI§«DIS) > 

260 NEXT K 

270 NEXT J 

280 RETURN 

299 REfl ### input ### 

300 ? "Rom :»j: INPUT J 
310 IF J<1 OR J>3 THEN 300 
320 ? "Steps :";: INPUT S 
330 IF S<1 OR S>19 THEN 320 
340 RETURN 

399 REfl ### shift row ### 

400 FOR 1=1 TO S 
410 H=KJ#iJ 

420 FOR K=l TO 19 
430 T< J,K>=T< J-K+l > 
440 NEXT K. 
450 TCJ,20>=H 
460 NEXT I 
470 RETURN 

499 REfl ### output ### 

500 POSITION ?,i:? #6;NT;:? *<£8C>t<;CLEfl 

84 



R>3"!NZ=0 

510 FOR K=l TO 20 

526 POSITION K-l#3:? #6iKl#K> 

538 POSITION K-l#4s? #6i'TX 2#IO 

54W POSITION K-Ij.5:? #6jT<3j.K) 

550 U=flBS<7X4*K'>-T<3*K>-T<2*K>-T<; UK 

560 IF U=W THEN NZ=NZ+1 

570 POSITION K-l,,-:? #6;u 

580 NEXT K 

590 RETURN 

593 REI'I *## '"nam program ### 

600 60SLI6 1 00 : REI'I i n i 1 1 a i i ze # 

610 SOSUB 500: REI'I output « 

620 IF N2=20 THEN POSITION 0,9:? #6;' 

d m "itil;" turns": END 

630 NT=NT+1 

S40 SOSUB 300: REI'I input # 

650 SOSUB 400: REI'I shift row » 

6$0 GOTO 610 
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Black Box 



Armed only with a laser beam you must discover the whereabouts of a handful 
of atoms hidden in a vast black box. 

The box consists of 8 x 8 x 8 cubes. Atoms can be hidden in any of the 
cubes, apart from those in the outer layer. However, there are never more than 
five atoms in the box. These atoms will reflect or divert laser beams according 
to the following rules. 

— a beam which strikes an atom is reflected straight back in the opposite 

direction 



o 



—a beam which is set to pass through a cube directly adjacent to an atom 
will be reflected at right angles 



o 



"T 1 

I I 



I 
,J_. 



— a beam which is set to pass through a cube diagonally adjacent to an 
atom will be reflected in a direction which can be obtained by adding two 
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right-angled reflections 




The box is numbered like this: 
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The computer will ask you to enter PI, P2, and P3, the coordinates of the 
position where you want the beam to enter the box. Obviously, this must be on 
the surface, so at least one of the coordinates must be 1 or 8. When you have 
entered the shot the computer will tell you where the beam has emerged. 
Remember that a beam may be reflected by more than one atom. After you 
have had a few shots you should be able to work out where the atoms are. 

ia Rtn ####### 6 i a c k b o x ####### 

20 Ulfl i'K t',-i:>,Hm( i > 

30 bOl'O 500 

99 REM ### compute re-suit. ### 

108 bl=W: 32=0:33=0 

tie on <. pi=i >+< Pi=s >*2+< P2=i #c3+< P2=y ;'*4 

+< P3=l >#5-KP3=8 J^b bOSOfc: 248#250#268#£;?0 

,230,230 

i28 for fli=-i ro l 

130 FOR R2--1 rO i 

148 for us=-\ ro 1 

150 FOR 7=1 TO 5 

168 IF c C i'K i,l :'=P1+H1 .) UNO <I'K I j.2^=P2+H2 

.:> AND <fl«;T#3>=P3+fl3>> Then Sl=Sl-Hi:S2=S 

2-h2:S3=S3-h3:T=5 

170 NEXT T 

180 NEXT h3:nEXT H2:NEXT Al 

1 30 S 1 =93N< S 1 ) : 32=SbN(. S2 ? : S3=S8N< S3 ) 

288 P 1 =P 1 +S 1 : P2=P2+S2 : P3=P3+S3 

210 IF ( P 1 =0 >+<-. P 1 =3 >-K P2=W )+•'■. F'2=3 Hi F'3=0 

.:>+< P3=9 >=0 THEN 120 

£20 ? "Result: "jpl-bli" "#P2-S2#" "jP3- 

230 RETURN 

240 31= i: RETURN 

250 3l=-i:RETURN 

260 32=1 : RETURN 

278 S2=-l! RETURN 

288 S3=l! RETURN 

£30 S3=-l= RETURN 

233 RET'I ##* i nput c OOTd I nates- ##tt 

300 ? "Ente-r coordinates" 
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OR Pl>8 


1 HEN 


310 


,: INPUT 


P2 




UK P2>6 


i HEN 


338 


; : 1 NFUT 


P3 




OR F3>8 


THEN 


350 



310 ? "Pl= " i- INPUT Pi 

320 IP PK1 

330 ? "P2= ' 

340 IF P2<1 

350 ? "P3= ' 

360 IP P3<1 

3i'0 RE F URN 

336 REPI ### initialize «## 

4O0 PUP 7=1 TO 5 

410 FOR 8=1 TO 3 

42o PK I > S ;>= INK RNB< Jfitcfc+ii: ) 

430 NEXf S 
440 NEXT T 
450 ■■- " ■:;t:3C>ta:LtHR>J : ;e3C>C=3= B L H 

C K BOX ==<Eyu.;L=J" 
460 RETURN 

466 REn ####* main program ##### 
500 SOS'UB 400! REfl initialize # 
5lO ? "please enter Shot" 
520 SOS'UB 380: REfl input coordinates # 
530 j F t. p 1 = l :>+(, P l =8 >+'■. P2= l >+(, P2=8 m P3= l 
;■+'; p3=y x ;■ i then 52o 
540 SOSUB lO0:REPI compute result # 
550 ? :? "Shoot or guess "i: INPUT HH$ 
560 if hh?="5" Then 5io 
5, :, ? "please enter guess" 
560 606UB 300: REfl input coordinates # 
390 PUR 1=1 lu 5 
600 IF ( >'K 1*1 .>=P1 .5 HNU aiU^.!^) HNLI < 

PKT,3>=P3) THEN ; ' "Right !":LnUIU 558 

610 NEXT r 

k20 '■" "wrong ! M :6UiU 550 
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Treasure Hunt 



Have you ever dreamed of going in search of hidden treasure? Of journeying 
through wild and hostile countryside, living off the land and sleeping rough, 
until you reach the remote and forbidding land where your glittering prize is 
hidden? If so, this is the game for you. 

You will be taken high up into the Rocky Mountains and given a map 
which shows where the treasures you seek are hidden, and what they are worth. 
To reach them you must make your way along narrow twisting paths — one 
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false step means certain death — by using the I, J, K and M keys. You discover 
the treasures simply by treading on them. 

But wait . . . it's not that easy. You didn't really think it would be that 
simple, did you? The treasures you seek are very carefully guarded by some 
extremely vicious and terrifying birds who will attack you if you are not 
careful. If they get you in their sights you will be paralyzed with fear. The only 
thing you can do to try and stop them is to press the S key. 

If you still feel up to the challenge start your search in the lower left hand 
corner of the map. Collect as much treasure as you can and take it away 
through the upper right hand exit. This will give you bonus points, and another 
chance to journey along the paths, picking up treasure. In fact you can make as 
many treasure-seeking trips as you can get away with. Unfortunately each time 
you go through you disturb more of those appalling birds, who become increas- 
ingly aggressive. 

The risks are high, but so are the rewards, so gather up your courage and 
off you go! 

10 Kbi'j ff#######ff I reasure Hunt ######### 

20 Dlf'i I $■:. 15 ;■.£-:$>; 300 J 

3m Din Pl$< i ?..SPs<; l )#HU$< l .^Bisc i .:■ 

48 OPEN #2»4*8*"Ki " 

50 GRAPHICS I? 

60 GOTO 1000 

yy REi'i ### change character-set ### 

100 rOP=PE£K':. IWb :-y 

110 PORE 204* TOP: PUKE 206*224 

120 FOR 0=1536 TO 1555 

130 REHU Us POKE U,U 

140 NEXT LI 

150 0=USFK 1536;' 

160 DflTH 104 * 1 62*4 *lfcii,0, 17^205, 145,283 

, 200 , 208 , 249 , 230 , 206 , 230 , 204 , 202 , 208 • 242 

,96 

1 78 RHI'ISET=T0P£256 

188 PUR U=RHl'IStT+3£8 TO RHI'ISET+5*8+7 
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198 READ U:POK£ U,u 

268 HEX I U 

218 POKE ,'56, TOP 

220 RETURN 

238 Dm ft 255,255,255,255,255,255,255,255 

240 OATH 5?, 18?,254,G0,68,254, 123,49 

250 DATA 1 89 , i S9 , 1 53 , 255 , 60 , GO , 36 , 1 02 

299 REP'I ### initialize S, screen ### 

300 F1U*= " £#e " : B I *= " CD J " : PLS= " SCEJS " : SP*= 

U u 

31w ? *6j:"<ESC>E^CLEflR>3"*PL*i8I*#*Q tre 
asure hunt 8" ; PL*; Bis 

320 ? #6* "RUNS : ";NC 
338 ? #8 i "BOOTY: ";P2 
340 RESTORE 4W8 
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358 FOR V=0 TO 19 

368 HERD T*sB$<l5&¥+l)=T*i? #6*T* 

370 NEXT V 

388 S=l:V=l9:P0SI TION K^V+3:? #6;PL$; 
390 RETOKN 

399 REfi ### screen data ### 

400 dhth e###*#########e e#e 

410 doth e#87 e#e8e#89e#e tqm e#e 
420 dhth e##e e#e @*e e##e e#fi 
430 DftTfi e*#e e»######e e*e e#e 
440 data e#e n*#i2 e##e 

450 DfiTO GNNJ S####e ^###666*6 

460 dhth e#e e#8 3e#*##*e 58#e e#e 
4?w dhth e#Q e#e 4G#es e#e4 e#e 
480 DfiTfl e###e e#e e####G e##e e#e 
490 data e#e e#e e#e fit® 
500 dhth e#e e###iv e#####e e#e 
5ie data e#e e#64 et*e e##e 
520 dhth e####eie####e f#*e 
57.0 dhth e#e 3e##e e##ii 2e#e 
540 dhth e#e e#eie#e3e#e e##£3 e###e 
550 dhth e*G e#e e###e e##e e#e3e#e 
St* dhth e#e e#e ete 
570 data e###e e##e e###e e##e e#e 
saw dhth e#e e#ei etig £#fi 

599 REIT *#* player's move ### 

600 T I =RHD'; 8 >*< 488-30SNC > 
610 FOR DO=l TO TI 

620 IF PEEKX 764 >=255 THEN 750 
630 bET #2 # IN 

640 *;=<; I N=42 :>-< i n=43 ) 

g5g uv^i ir+=6i X IM=45) 

660 LOCATE X+UajV+OV+Z.^ST 

670 IF ST=ASC<IU*> THEN 750 

680 POSITION X.V+3:? #6iSP*i 

690 X=K+UX! y=v+UV 

780 FiJ=ST-4y 

?10 IF F'O-=;0 OR F'0>9 THEN 750 

?20 BStV+lS+l+^VSilS+l+X.^SPS 

730 P 1 =F' 1 +P0 : P2-P2+P0 
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740 POSITION 7,2:? #SiP2i" DULLHR"; 

750 POSITION X,V+3:? #6iPL*i 

760 IF V=0 THEN DU=T] 

770 NEXT DO 

780 IF V=19 THEN SOW 

790 RETURN 

7 J 99 REH ##* bird attacks *## 

800 DT=25-5*NC:BX=19 

810 POSITION BX,Y+3:? #6i8I*i!G0T0 840 

820 BX=BX-1 

830 POSITION BX,V+3:? #6;B1*;" "; 

840 FOR W=l TO DT:NEXT H 

850 IF BX>0 AND PEEK<?64X>33 THEN 820 

860 IF BX<=X THEN POSITION 4,23:? #6;"en 

d of same ".;: GOTO 860 

870 POSITION 0,V+3 

880 ? tbiB^VXlS+lj.cV+l )Sl5)i" "i 

890 Pl=Pl+l 

900 POSITION X/V+3:? #6;PL$; 

910 RETURN 

899 REN ##### main program ##### 

1000 60SU6 100s REN characterset # 

1010 GOSUB 36©: REH initialize k screen # 

1020 60SU6 600: REfl player's move # 

1030 IF Y=0 THEN NC=NC+l:P2=P2+NC¥Pl:Pl = 

0:6010 lwitf 

1040 GOSUB 800: REN bird attacks # 

1050 60T0 1020 
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I.T. - 
Century 



The Adventure of the 



In this crazy adventure you will sink into the bowels of the earth and meet a 
very strange creature who lives there. His name is, of course, I.T. which stands 
for Intra Terrestrial. 

If you have never played an adventure game before don't worry about the 
rules — there aren't any! You have to work everything out for yourself as you 
journey beneath the earth's surface, performing extraordinary tasks and facing 
terrifying dangers as you go. If it all gets too much for you enter HELP and see 
what the computer comes up with. 

So, type in the game, take out a good insurance policy, give the RUN 
command, and off you go! 
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18 REI'i *#*#########* I. T. *###*#######* 

law SOSUB 5000 

110 lHD=8:NKHfl=0 

120 SOTO 140 

130 GOSUB 500 

140 GOSUB 1000 

150 SOSUB 800 

160 IF CWD<6 THEN GOTO 130 

17'@ GRAPHICS 

law ? " CONGRATULATIONS! 

190 ? " YOU KILLED YOURSELF 

200 STOP 

500 REI'I ##* input ### 

510 NKHfl=0: IHD=0 

530 ? "Wl^at would you liKe to do" 

540 INPUT VV* 

545 IF LEN<YV*>=0 THEN GOTO 530 

550 FOR 1=0 TO 14 

560 IF H*<I*11+1,I*11+LEN<VV*)>=VV* THEN 

IHD=I+i:I=15 
570 NEXT I 

580 IF IHD=13 THEN ? "ON OR OFF?": INPUT 
VV*:IF VV*(2>="F" THEN IHD=14 
590 IF IHD>6 THEN RETURN 
600 IF IHD=0 THEN ? "1 DON'T UNDERSTAND 
VOU": GOTO 500 

610 NKPi'l=K<IKI1,lHD>:lF NKflM<>0 THEN RETU 
RN 

620 ? "VOU CAN'T GO IN THAT DIRECTION":G 
OTu 500 
670 RETURN 
800 REf'i OUTPUT 

810 ? "YOU'RE IN THE ";R*< IKf'l*15-14, 15*1 
Kl'i > 

811 IF IKI'I>24 OR BLL=1 THEN GOTO 820 

812 ? "VOU CAN'T SEE I'ttJCH HERE": GOTO 830 
820 IF IUWO0 THEN ? "THERE IS A ";U*<12 
*IUH-il,12*IUW>i"HERE" 

830 FOR 1=1 TO 6: IF kXIKrl,lX>0 THEN ? " 

VOU CAN GO "iH*< 1*11-10,1*11) 

840 NEXT I 

850 ? :? : RETURN 
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1000 REfl #.*«** OPERATIONS »**-*#» 
1018 IF NKAPK>0 THEN IKfl=NKBPl 
1020 IUW=M 
1030 FOR 1=1 TO 12 
1040 IF U<n=IKH THEN IUW=IsI=12 
1050 NEXT I 
I860 IPS=8 
1070 FOR 1=1 TO 6 
1080 IF pa,l)=IKn THEN IPS=I:I=6 
1030 NEXT 1 

1100 REfl « GENERAL OPERATIONS #* 
1110 IF <IKI"K12) AND <CRI<>8> THEN 60SUB 
4860 
1120 CLL=CLL+BLL 

1200 REI1 « PERSONAL OPERATIONS ** 
1210 IF IHD<7 THEN GOTO 1240 
1220 GOSUB 1300-K IHO-?>*200 
1230 REfi HANDLERS 
1240 IF IPS=0 THEN RETORN 
1250 GOSUB 3000+< IPS-1 >*200 
1260 RETURN 

1300 REfi «» KILL !«#* 
1310 IF <IPS=0;> OR <1PS>4> THEN PRINT "T 
I HE IS THE ONLV THING VOU CAN KILL HER 
E ! ! " : RETURN 
1320 LET 1UHB=? 
1330 GOSUB 4800 

1340 IF IB2=0 THEN ? "I HON'T LET YOU AT 
TACK WITH BAREHANDSiTHAT'S SUICIDE" sRETU 
RN 

1350 PRINT "SO VOU WANT TO KILL 1HE";P*< 
1+10*IPS-10*18*IPS> 

1360 ? "VOU ATTACK IT WITH VOUR SWORD "i 
1370 IF RNCK0XU.5 THEN ? "BUI YOUR UICT 
W\ HOMES AWAV QUICKLY": GOTO 13S5 
1380 ? "AND VOU GIUE VOUR UICT i IT A TERR I 
BLE BLOW" 

1390 LET PUPS,3>=P< I PS, 3 J- 1 
1395 IF RND(0>>0.2 THEN GOTO 144W 
1400 ? "THIS IS VOUR CHANCE: VOU CAN HIT 
IT AGAIN BEFORE IT RECOVERS" 

1410 ? "DO VOU WANT TOY" 

1411 INPUT VV* 
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1420 IF WKDO'V" THEN GOTO 1440 

1438 ? "VOU RPlISE VGUR SHORD HGhIN ";:G0 

TU 137W 

144« IF P<IPS,3)>1 THEN RETURN 

1450 IF P(IPS,3>=1 THEN ? "YOUR UlCTIfi I 

S BftDLY HOUNDED": RETURN 

1460 ? "VGU KILLED VGUR UICTIH" 

1470 P<IPS,1>=0:IUW=S+1PS 

1480 G<IUH^=IKn:lPS=0 

1490 RETURN 

1500 REC1 **** HELP **#* 

1510 ? "POSSIBLE COIimNDS: " 

1520 FOR 1=1 TO 13 

1530 ? H*( 1+1 1*1-1 1,1 1*1; 

1540 NEXT I 
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1550 ? 

1568 RETURN 

1700 REPI #*» TAKE «+¥* 

1710 IF IUWO0 THEN GOTO 1740 

1720 ? "THERE IS NOTHING TO TfiKE HERE" 

1730 RETURN 

1740 ? "VOU TfiKE IHE "iUK 1+I0W*12-12*IU 

M*12) 

1751 EKIBPWX^IUW 

1760 I6PlfiX=I6PlflX+l 

1778 U< IUW;>=0 

1788 IMw=0 

1790 RETURN 

1900 REPI #*#* DROP **** 

1309 ? "WHAT 00 VUU WHNI TO DROP?" 

1311 INPUT YY* 

1312 L=LEN<YY*> 
1320 IOWB=0 

1330 FOR 1=1 TO 12 

1340 IF W*=U*< 1-KI-l >J12,12*U-1 >+L> IH 

EN IUN6=I:I=12 

1350 NEXT I 

1360 IF IUWBO0 THEN 6QTQ 1338 

1970 ? "I DON'T UNDERSTAND VUU" 

1380 RETURN 

1390 60SUB 4SO0 

2008 IF IBZO0 THEN 60T0 2030 

2010 ? "YOU DON'T HOME H "»W* 

2020 RETURN 

2030 ? "YOU DROPPED THE " A'*< 1 + 12*B< IB2.) 
-12,12*B<. I62>) 

2040 IUw=B< I62> 
2050 U<B<I6Z):>=IKP1 
2060 B< IBZ'JMEK IfcSPIfiX-1 > 

2070 ier'(HX=iBf)HX-i 

2080 "( "DO VOU WANT TO DROP MORE?" 
2090 INPUT YY$ 

2031 IF YY*<1,1)="V" THEN SOTO 1300 
2035 RETURN 

2100 REPI %%% INVENT *#* 

2110 IF I6P10XO1 THEN 60T0 2140 

2120 ? "VOU UHN ONLY YOUR CLOTHES" 
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2130 GOTO 2180 

214a ? "VOU HflUE THE FOLLONING THINGS:" 

2150 FOR 1=1 TO IBPirtX-l 

2160 ? U$<1+12*B(I >-12#12*BU >) 

2170 NEXT 1 

2180 ? "VOU OWN SURUIUE " j5-CHD#" (TORE W 

OUNDS" 

2190 RETURN 

2300 KEPI $*& BONDAGE *** 

2310 IUWB=6 

2320 GOSUB 4800 

2330 IF IB2O0 THEN GOTO 2360 

2340 ? "VOU WON'T PiHNHGE THAT WITHOUT BW 

NDAGE" 

2350 RETURN 

2360 ? "IT DOESN'T LOOK UERV HOPEFUL" 

2370 ? "VOU'LL NEED ALL VOU HflUE" 

2380 SOUND 0,244,10*10 

2390 ? "SO THAT WILL HOLD FOR W WHILE" 

2400 CWD=0 

2410 B< IBZ >=&(. IBPiwX-1 .:■ 

2420 IBP'lwX=IBPiHX-l 

2430 RETURN 

2500 REP1 ttt LANTERN ON *** 

2510 IUWB=1 

2520 GOSUB 4800 

2530 IF IB2O0 THEN GOTO 2560 

2540 ? "GET W LHNTERN FIRST" 

2550 RETURN 

2560 ? "VOU TURNED THE LHNTERN ON" 

2570 6LL=1 

2580 RETURN 

2700 REP1 ***% LWNTERN OFF **** 

2710 IUWB=1 

2720 GOSUB 4800 

2730 IF IBZO-0 THEN GOTO 2760 

2740 ? "VOL) 00 NOT EUEN HAUL H LANTERN" 

2750 RETURN 

2760 ? "THE LHNTERN IS OFF" 

2770 BLL=0 

2780 RETURN 

2900 REP1 Ztttt READ ****** 
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2905 luwB=4 
2910 GOSUB 4S00 

29 IS IF IB2O0 ThEH 6OT0 2938 

232a ? "VOU CfiN'T REHO H BOOK IF YOU DON 

' T HhUE ONE " 

2925 RETURN 

2930 IF BLL=1 OR IKI'I>24 THEN SO fu 2955 

2940 ? "IT IS TOO DORK TO REhD HERE" 

2958 RETURN 

2955 ? "THERE IS H RECIPE FOR COOKIES IN 

THIS BOOK" 
2960 ? "IT ShyS: ThKE ONE OtwO HELLHOUND 
AND SOI'lE HHEPTiDROP THIS ON H BhRBEuUE 
hND WHIT FOR H FEW PIInUTeS" 

29S0 ? "THAT'S HLL" 
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2998 RETURN 

3060 REf'l ttsfcfcTO* I.T. $**:«:*#* 

30 1 IF I UM=3 THEN P< 1 , 2 >=3 ! M< IUM >=0s I Uw 

=0 

3020 GOTO 3020+P<l,2}#10 

3030 ? "I.T.<THE INTRATERRESTIAL;' IS HER 
E" 

3031 ? "HE'S TALKING URGENTLY," 

3032 ? "BUT VOU DON'T UNDERSTAND Hlfl" 

3033 K 1 ,2 >=2 

3034 RETURN 

3040 ? "I.T. GESTURES THAT HE IS UERV" 

3042 ? "THIRSTV. HE LOOKS RATHER DESPERA 
TE U 

3043 RETURN 

3050 ? "I.T. DRINKS THE WATER AS HE NEED 
S" 

3051 ? "IT UERV I'lUCH. AFTER A WHILE HE ST 
ARTS" 

3052 ? "TALKING AGAIN. NOW VOU CAN" 

3053 ? "UNDERSTAND Hlfl" 

3054 ? "*■*? says : PLEASE 60 DOWN INTO THE 

CAUES AND FIND THE NULL I TV BONO" 

3055 ? "SOJ'IE CRAZY PROFESSOR WANTS TO BL 
OW UP THE EARTH WITH IT" 

305S ? "I HAD A FIGHT WITH THE MONSTER T 
HAT PROTECTS IT" 

305? ? "NOW I'd TOO WEAK ; SO ONLY VOU C 
AN SfiUE THE EARTH FROI'I DESTRUCTION" 

3058 ? "SUDDENLY I.T. COLLAPSES" 

3059 P< 1 ,2 >=4: RETURN 

3060 ERROR- ? "IT LOOKS LIKE I.T. IS I 
N COHA"GOTO3050 

IT ALL ALONE" 



3061 


? "NOW YOU HAUE TO 


DO 


3062 


? "GOOD 


LUCK" 




3063 


P< 1 .2 >=t 


i 




3064 


RETURN 






3070 


? "I.T. 


IS HERE " 




3071 


? "HE IS 


i IN CORA" 




30^2 


RETURN 






3083 


RETURN 






3200 


RBI ** 


DRAGON 


** 



3210 IF IUW=8 THEN P<2#2)=5!U< IUW>=0:IUH 
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=0 

3220 60TG 3220+<10*P<2*2>) 

323B ? "THERE IS HN ENQRHOUS I'IUNSTER HER 

3231 ? "ITS EVES ARE ROLLINS" 

3232 ? "IT VELLS:hRE VOo COOKIE?" 

3233 P<,2,2>=2 

3234 RETURN 

3248 ? "THE T'lGNSTEK VELLS LOUDER AND LOU 
DER: " 

3241 '?' " ARE VOU COOKIE?" 

3242 P<2#2)=3 

3243 RETURN 

3250 ? "IT KEEPS VELLIN6 AND BECOMES RAT 
HER AGRESSIUE" 

3252 P<2#2>=4 

3253 RETURN 

3260 ? "THE PiUNSTER SIUES VOU A TERRIBLE 
BLUH" 

3261 ? "VGUR HEAD IS SPINNING" 

3262 CHD=CAO+l 

3263 P( 2 , 2 >= I NT< 3*< RNCK ) )+2 ) 

3264 RETURN 

3270 ? "THE CTONSTER SftVS SURPRISED: COOK I 
ES?" 

3271 ? "IT STARTS EATING AT ONCE" 

3272 ? "HN ENORf'lOUS BONG AND IT FALLS 
HSLEEP" 

32c'3 K<. 16^6 >=1 
3274 P<2,2>=6 
327'5 RETURN 

3280 ? "THE HONSTER IS ASLEEP" 

3281 RETURN 

3400 REfl «« SNAKE *$» 
3410 ? " THERE IS H SNEAK V SNAKE HERE" 
J420 IF RNLK0XO.4 THhN RETURN 
3430 IF <IBCWX=1) OR (RNDC0X0.5 > THEN 6 
OTO 3470 

3440 IBf1AX=IBPlAX-l 
3450 U< E« I BP1AX > >=13+INT< 1 2*RND< U ) ) 
3460 ? "WITH A QUICK PIOUE IT SNATCHES 
SOMETHING" 
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3478 ? "AND IT SNEEKS HWwV" 

3488 P< 3j 1 >=P< 3, i H3 

3438 IF P<3,1)>24 THEN P<3,i >=P<3 J .l ;-b 

3500 RETURN 

3600 REi'l *£* HELLHOUND *** 

3620 SOTO 3620+P';4,2>*10 

3630 ? "THERE IS W GIANT HELLHOUND HERE" 

3631 ? "IT LOOKS LIKE HE HANTS VOU FOR D 
INNER" 

3632 P<4,2>=2 

3633 RETURN 

3640 ? "THE HELLHOUND ATTACKS VOU AND BI 
TES VOU UIOLENTLV" 

3641 CHD=CWD+1 

3642 P<4,2>=3 

3643 RETURN 

3650 ? i'THE HELLri0UND_ GROWLS AND SEElTS T 
PREPARE FOR HNOlHER ATTACK" 

365 1 PC 4 , 2 >=2+ 1 NT< RNCK >t2 > 

3652 RETURN 

3800 RSI »-** tiOf'IB **** 

3810 ? "THE NULL I TV 60HB IS HERE." 

3820 ? "THERE ARE THREE WIRES BETWEEN TH 

E" 

3830 ? "BOCIB WND THE TIl'iE l'IECHHHlSl v i:H GR 
EEN" 

3831 ? "ONE < 6 :'*H VELLOW ONE <Vj HND H R 
ED ONE tRr' 

3832 ? :? "VOU RUST DISCONNECT TwD OF TH 
Ell TO STOP IT" 

3840 ? "WHICH WILL BE THE FIRST ONE?" 

3845 INPUT !Q& 

3850 ? "WHO THE SECOND ONE?" 

3855 INPUT W* 

385/ CB=0 

3860 U$="VRG" 

3861 FOR T=l TO 3 

3865 IF X)!*(1,1)=OKT,T:j OR VV*< I A >=Q$< 

1,1> THEN CB=CB+1 

3870 NEXT T 

3880 IF CB<2 THEN ? "WATCH OUT! WRONG IN 

PUT ! " : GOT 3840 

3900 IF ABSC WSCC »<$ ;>-wSC< VV$ >>= 11 THEN G 
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TO 393W 

3985 GRAPHICS 0:? "ENORMOUS EXPLOSION 

nusHRuori cloud >. \ - 

391U end 

393m ? "CONGRATULATIONS! ! ! VOU SUCCEEDE 

_ WHERE EUERVONE ELSE FOILED" 

3958 END 

400M REPi #* BARBECUE S* 

4010 IF IU!4=0 THEN SOTO 4060 

4030 IF <U<2>=IKri5 HND <K>< 12}=IKFI} THEN 

IMW=y: U< 8 >=IKM:U< 2 )=0: U( 12 >=&i P< 6,2 5=2 

4060 GOTO 4066+ 10*P< 6,2 > 

4870 ? "THERE IS A 6 1 ANT BARBECUE HERE" 

4071 ? "WITH l-l LhrGe FIRE UNDER IT" 

4072 RETURN 

4880 ? "HN ENQRflOUS FLASH LIGHTS THE F'Lfi 
CE" 

4081 ? "HND H PENETRATING SHELL FILLS VO 
UR NOSE" 

4082 P<6#2)=3 
408:3 RETURN 

4898 ? "EUERVTHING IS QUIET NOW" 

4091 ? "EVEN THE TERRIBLE SHELL FADES" 

4092 P<6 J .2;-=1 

4093 RETURN 

4808 REH +* LOOK IN 0WN1NGS tt 

4810 IB2=8 

4820 FOR 1=1 TO IBP'IAX-1 

4838 IF B<I.J=IUWB THEN LET IBZ=I : I = IBflfiK 

-1 

4848 NEXT I 

4858 RETURN 

4860 Rtfl #**# PUZZLE *$ 

4865 CR0=CR0+1 

4870 IF IKPNCKCRQ) THEN CRI=CRI+l 

4875 IF CR0<8 THEN RETURN 

4880 IF CR1=8 THEN GOTO 49 15 

4885 PRINT "STRAN6E THINGS PRE HAPPENING 

4398 PRINT "HN ABSOLUTE DARKNESS COMERS 
VOU HND IT FEELS fiS IF HN INUISIBLE FO 
RCE IS LIFTING VOU" 
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4895 ? "FOR U POTENT YOU ARE UNCONSCIOUS 

43O0 CRO=l:CRI=i 

4305 IKfM 

4310 RETURN 

4315 ? "YOU HEHR ft STRAN6E SOUND LIKE SO 

HETHING IS BEING PUSHED BHflV" 

4320 ? "NOH IT HAS STOPPED" 

4325 kX2,l>=3 

4338 RETURN 

5000 REC) ### initialization ### 

5010 ? "<ESCXSHIFTXCLEfiRXESC>t=3<ESO 

<TfiBXESCXTHB>e g" 

5020 ? "<ESCXTABXESC>OftB>e I. T. 

e" 

5030 ? M <ESCXTflBXESCXTflB>e ii 

5040 ? " < ESC X TftB X ESC X i fiB >t'P 1 ease ma 1 1 

e" 

5050 D i II K< 36 * 6 > , RSX 540 J , W, 1 65 ) 

5060 D1P1 P<6»3>j.P*<60M»<12>»U*<144) 

5070 DID B<12)>0<8> 

5180 REfl ### connections ### 

5110 FOR 1=1 TO 36 

5120 K<I*1 >=I+i:Kt I,2)=i-1SKX I#5>=0 

5130 K< 1 ,3 J=l+4: K<. 1 ,4 )=I-4: K< I ,6 >=0 

5140 NEXT 1 

5150 FOR 1=0 TO 24 STEP 12 

5160 FOR J=l TO 3 STEP 4 

5170 K< I+J+3,1 ^=«:K<; I+J,2)=0 

5180 NEXT J 

5130 FOR J=l TO 4 

5200 K< I+J+8,3>=0:I<a I+J,4)=0 

5210 NEXT J : NEXT I 

5230 K< 1 .5 >=16: KX ?#5 >=15 

5240 K<32,6^=13:KU3,5;'=32 

5250 K< 35 j.6 >=18: KC 1 8- 5 >=35 

5260 FOR 1=1 TO 15 

5270 REftD U: REftD H."LEl K<U,H>=0 

5230 NEXT I 

5300 REfl ## initialize parameters ### 

53101 Kf1=36 : 1 B2= 1 : 1 BflftX= 1 : CKfi=W 

106 



5340 CLL=« : BLL=a : CWD=0 : CRO=0 : CR I =0 
5400 REH ##« till arrays #*# 
5405 DIf1 W*U5>!DIfl xxsas;' 

5409 H*= " " : H$0 65 )= " " : H $<■. 2 >=HS 

5410 FOR 1=1 TCI 15 

5420 REHD W*: H*< < I -1 >*1 1+1 * I *1 1 >=' t'V* 

5430 NEXT I 

5435 U$= " " : U*< 1 44 .:■= " " : U$< 2 >=U* 

5440 FUR 1=1 TO 12 

5450 REHD W$ : U*< < i - 1 >* 1 2+ 1 , 1 * 1 2 >=W* 

5460 NEXT i 

5465 P$=" ":PS<S0>=" " :P«2>=RJ 

5470 FUR 1=1 TO 6 

5480 REHD V V* : P*< (I - 1 )* 1 0+ 1 , I % 1 >=W* 

5490 NEXT 1 

5495 fi*=" ":R:f(540.:'=" ":R*<2>=R$ 

5500 FUR 1=1 TU 36 

5510 REWD W* : R$<; < I - 1 )* 1 5+ 1 , 1 % 1 5 ;>=VVS 

5520 NEXT 1 

5530 FOR 1=1 TO 12: REHD DUX liMBsNEXT I 

5560 FOR 1=1 TO biREHD D,E 

5570 H 1 , 1 >=D:P< I »2 )=1 : P< 1 ,3 :.•=£ 

5590 NEXT I 

56W0 FOR 1=1 TO 8 : REHD E:CK 1 >=£:NEXT 1 

5700 RETURN 

6000 OftTA EHST,w£Si , NORTH , SOU THj UP ,OOWNji 

K I Ll_ , HELP , T'HKE , DROP , I NuENT UKY , BHNDH6E , LH 

NTERN ON,LHNTERN OFF ..REHD 

6010 DHTH LANTERN j.WHEflTPlLE*HfiTERSflGK,CO 

OKBOOK , LEhFLE T , BHNDH6ES , SWORD 

k0ii DHTH COOK] EMBODY OF l.T. J.6IHN1 CORP 

se, sliced snhke,dehd hound 

6020 dhth i.t. ,nonst£r,snhke, hellhound, b 

0l16,BHRBECUE 

K030 DHTH RESET CHUEi.|-CHUE,SLCREi CORR1 

DOR , CON TROL ROOlT , Q-CHUE , I -CHU E , SPHCE CHU 

E , BLWCK ROOIT , P-CHUE , E-CHUE , N-LM 

6032 DHTH E!TPPt'NESS,SITHLL CflUt»ROCKV CHU 

t, SHELLY CHUE,0KHG0N CHUE,SNHKE CHUL,YtL 

LOW CHUE,STREHiT ESHNK#$TINKY PlhCE 
b033 DHTH FOOD CWU£,FiNHL CHUt, COLORED C 
HUE, ICE CfiuE,OPEN PLHCE, WOODS, WOODS, WOOD 
S , WOODS , WOODS , WOODS , WOODS , HOODS 
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6035 DHTH HOODS, WOODS, MOODS 

B058 DftTfl 34, 2, IS, 15, if, 4, 29,2, 8,1, 25,1 
6068 DhTh l#5*9#ie#H#V#8#2 
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The Wolf and the Five Little Goats 

A Grimm's fairy tale? No, an intriguing board game! This game is played on a 
checkerboard displayed on the screen. As the game begins, the goats are scat- 
tered throughout the lower half of the board and are represented by little 
squares containing a number. The wolf stands at the upper left-hand corner of 
the board. 

Off we go — you are the wolf, and the computer controls the goats. You 
win if you eat three goats, and the computer wins if one of the goats eats you. 
(These wolf-eating goats are amazing creatures!) 

You may start. On the lower part of the screen you see: 



STILL . . . MOVES 
for example 

STILL 2 MOVES 



The number of moves always lies between 1 and 3, and tells you how many 
steps you may take during your turn. The wolf — in other words, you — may 
move horizontally or vertically, but never diagonally. Each move must be 
entered by using the I, J, K and M keys as cursor keys. If the last move of a 
series of moves brings you on a square with a goat, the goat is yours. You may 
never cross a square that has a goat on it. 

There are 5 goats in all, and they may jump over each other. Goats can 
move only in one direction. The number of steps they may move is shown on 
the goats themselves, and is always between 1 and 5. For instance, if a goat 
bears the number 3 he can move 
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3 steps to the left, or 
3 steps to the right, or 
3 steps forward, or 
3 steps backward 

He cannot move 1 step forward and 2 steps to the left. If you (the wolf) have 
moved to a new position the computer shows 

NOW IT'S MY TURN 
When it is your turn, the computer shows 

STILL . . . MOVES 
At the end of the game the computer either tells you 

YOU WIN! 
or worse 

YOU LOSE 

10 RBI ##### The woit find #»### 

##### The b Liuif tio.at.-E. ##»## 
20 Li III P<4*2?j f*< l > 
30 OPEN #2 , 4 , & , " K : " : OPEN #-'■ • 4 , & , " S •' " 
40 SRftPHICS 18 
50 SOTO 1080 
58 SOTO 1000 

93 Rhi'l ##* initialize ### 
1 00 P.BI'11 N= 1 : RBP'IHX= 1 : KBfl 1 N=5 : KBl«*= 1 4 
1 1 RH=RBI1 1 N : KH=KBr1 1 N : [1flX=-400 : BEhT=0 
120 '?' #S;"ii iDoitLFJLUJ goatsii'" 
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130 FOR 1=8 FO 9 

140 ? #b>" " 

i5w Ntxr i 

160 FOR 1=0 10 4 

1 70 F\ I M j=J NT< 5*RNCK O > J+RBi'i I N+5 

180 P< 1 , 1 ^= I NT< 1 W*RNO< J >+K6Jl 1 N 

l 98 P< I *2 )=INT< 5*ftNCK ;■ w l 

200 POS I T I ON P>; 1 , 1 > , pf 1 , .:■ : ? #6 iPt 1 *2 ) 

210 NEXT 1 

220 POSITION KH,Rh:? #t;; l, W:BW=2 

238 RETURN 

299 REfl #ff* inpux, arid move ### 

300 FOR BW=BW TO 1 STEP -1 
310 POSITION 2,11 

320 ? #Si" si-iii "ibH;" moves " 

338 GET #2,l'luUE 

340 ORW=< f'IOUE=61 HND RW<RerlHX>-a'tOOE=45 

HND RW>RBI1lNP 

350 DKW=<n00E=42 HND KMOCBfV&X rWE=43 

HND KH>KBi'llNJ 

360 IF DRH+DKW=0 THEN 330 

370 POSITION k.h+OKh,kh+DkH:GET. #3,X 

380 IF CHRs<; X X > " . " HND BN<>1 THEN 330 

390 POSITION KH#RNJ? #8;"." 

4O0 RW=RH+DRH:KH=KH+OKH 

4iO POSITION KH,RH:r #&i*W* 

420 NEXT BW 

430 FOR 1=0 TO 4 

440 IF RH=P<I,0; HND KW=P<I#1) PINO KI#2 

><>0 THEN P< I,2.>=e:BhHT=BEHT + l 

450 NEXT 1 

4S0 BW=INT<3*RNO(0;h-1 y. POSIT ION 2*11 

470 IF BEHT=3 THEN ? #Gi"f you urni CHJ 

i^':Gtr #2,X:END 
480 '? #bi"l?nooi it,tDJ= my ujrnt" 
490 RETURN 

499 RED ### -3.t,at,us ### 

500 STHT=0 

510 IF RS<R8f1IN OR RS>R8f'IHX OR KSKKBPIIN 
UK KS>KBI'IHX THEN HE I URN 
520 D=HBS< RW-RS >+H6S< KH-K.S ) 
530 IF U=BW THEN RETURN 
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D=BH-2 THEN STHT=-200 

0=6 THEN STOT=500:8GTG 640 

D<=5 THEN STffT=STPlT+35 

RS=RW THEN STftT=STfiT+48 

KS=KH THEN STHT=STftT+4ti 

HBS< pf i ,0 >- RH ?+flBS< Pi 1 , 1 P-KH >=tiH 



540 IF 

556 IF 

569 IF 

570 IF 
580 IF 
590 IF 

THEN STOT=STfiT+80 
600 FOR 1=0 TO 4 
610 IF RS<>P< Tj.0? 

I F KS<. >P< T » 1 > 

NEXT T 

IF STHT+RNCK0 



620 
630 
640 
650 



[HEN 6IHT=SThT+10 
THEN 6ThT=SThT+10 

_ .KI'THX (HEN RETURN 
mX=ST«T: If1fiX=l : fiPMx=RS: KIWX=KS 
66W RETURN 

699 REN ### evaluate goats ### 

700 i v iHK=-400 
710 FOR 1=0 TO 4 

720 IF P<1,2.J=0 THEN 810 

730 KS=P<; 1,1 ?: RS=P< I ,0 >+P< 1 ,2 > 
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746 80SOB 500 

,'50 RS=P< 1*8 >-P<. i * 2 :> 

?6y GOSUB 5yy 

778 RS=P< 1*0 >: KS=P< 1 , 1 ?+P< I *£) 

?'t!0 80SUB 500 

798 KS=pt I#l >-P< 1*2.) 

800 GOSOB 500 

t: 10 NEXT I 

820 RETURN 

Say REfl ##» move goat ### 

900 POSITION KIfWX*l)*P<II1RX»0J 

910 ? #6;"." 

920 PC ITO*4ji0)=FS1fiXsP< IWDirl )=KTOX 

930 P< If1flX#2>=INT<5*RND<8,>+i ;■ 

940 POSITION Kl'INXjiKi'lHX:? #6iPC IPlfiX,2 > 

950 IF f'IHX<400 THEN RETURN 

9B0 POSITION 2 j. 11 

970 ? #6i" gyou lose LHJli " 

980 BET #2#Xs£ND 

999 REfl ##### mam program w## 

1000 GOSOB 100:REH initialize # 
1010 GOSUB 380: REfl input :j : move # 
1020 GOSUB 700! REfl evaluate goats # 
1030 GOSUB 900: REfl move goat # 
1040 GOTO 1010 
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Spring 



A number of well-known computer games are based on fairly straightforward 
physical equations. For instance all those 'lunar landing' games use an equation 
which gives a position as a function of time when the initial position and 
velocity and the acceleration due to gravity are known. 

SPRING is also based on a physical idea, or to be more precise, a physical 
fantasy. Imagine a spring with one end fixed to the centre of your computer 
screen and a ball attached to the other. If this were a normal spring, when you 
stretched it and let it go the ball would simply bounce back and forth. This 
however is an unusual spring, subject to some very mysterious forces which will 
cause the ball to move in a most peculiar manner — as you will soon see! 




V 
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10 RBI ########## S P r i n g #####»#### 

2W GRfiPHICS 24 

30 SETCOLOR 1,8., 15! COLOR 1 

40 SETCOLOR 2,RND(0.JSI6,6 

50 SETCOLOR 4#RND<8)*16#6 

88 RET'I starting pos. :j : spring constants 

70 K=RND< >#309. 5+4. 5 

88 V=RND< ;•¥ 1 85 .5+2.5 

90 H*=RND< >*50+5: OV=ftND< & )*50+5 

lay PLOT x,v 

110 REPI compute velocity & displacement 

120 U&4WK 159. S-XVftXs X^K+UX 

1 30 UV=uV+< 35. 5-V >sW- V=V+UV 

140 DRHHlU S/t 

150 SOTO 120 
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Apollo 2000 



Remember July 1969 .... that 'giant leap for mankind' when Neil Armstrong 
stepped onto the moon. When we recall the excitement felt throughout the 
world on that day it's hardly surprising that so many movies and computer 
games take space travel as their theme. 

In Apollo 2000 you control a space module on its journey to a planet. 
After the RUN command you can choose your destination — any of the nine 
planets in our solar system or the mysterious planet named RANDOM. Having 
made your choice the planet's landscape will appear on the screen, revealing the 
plateau on which you are to land. 

There is a choice of 2 levels of play. Level 1 is relatively simple. Level 2 is 
a bit more difficult because now your module is in orbit around the planet. 

Vertical movement is controlled by the keys 0-9, where gives no boost 
from your landing rockets, while horizontal movement is achieved by using the 
keys and . Once a key is pressed, your module will maintain its direction 
and velocity until you change their values. All relevant data are displayed on 
the screen. 

10 REf'l ######### flppollo 2000 ###»#»#»# 

20 01(1 C*< 20 >,S*< 10 >,PL$< 26; 

30 OPEN #2,4,0, "K: " 

40 SOTO 3200 

69 REf'l ### input ### 

100 IF FUEL<=0 THEN POKE 656,3: POKE 65,', 

21:? "TANK EIIPTv !! <ESC>L<2>3";:GhS=0:h 

6=0: G6=«: RETURN 

110 IF PEEkX 764 5=255 THEN 168 

120 GET #2,;<:*=X-4S 

130 IF rt>=0 HND X<=9 THEN H6=0:6HS=; ;: ;:6OT 

150 

1 40 h6= i 0*>; < >=:= 1 4 >-< ft= i 2 ) j 

150 6G=6hS+HBS< HG .:■ 
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180 IF SStcINT<=FUEL THEN RETURN 

1 70 TEK=FUEL-GG*InT: TEK=l+TEKyG8/IN7 

i 88 SflS= I'EKsGhS : H6= TEk*HG : GG=6hS+HBS'; HG ) 

188 RETURN 

199 REi'l ### computation ### 

200 8H=S6£SG : R=R0+H81 : PfiR= I NT 
21 tt uHU=Hy:GOSUB 800 

228 0OIS=OIS:80SU8 580 

230 0UEL=UEL : G0SU8 400 : UEl_=FUN 

240 0H6T=HGT : GOSUB 300!H8T=FUN 

250 r I i'IE=T I ITE+ 1 NT : FUEL=FUEL~86*IN r 

288 l'l=WGT+FuEL*SG 

270 RETURN 

299 REl'l ##* compute new he i 9th ### 

380 FUN=OHGT+PHR:4:£ UUEL+PhR:?:< (, < HU+OHU >'-2/ 

4- Jfl.-'R V2vR ) > 

310 IF 608=0 THEN RETURN 

320 FUN=FUN+£FF*8fiS^£W*< < PhR-IVGN >*L06< I'l 

y\ Pl-GNSPHR ) HPhR > 

330 RETURN 

399 REl'i ### compute new velocity ### 

400 FUN=oiEL+PfiR^ft*< < HU+OHU j--2-'4- JFVR ) 
410 IF 6RS=0 THEN RETURN 

42W FUN=FUN+EFF*8*S^6W*LCKi< IV< fl-GH+PHR J .:■ 
430 RETURN 

499 REM ### compute new distance ### 

500 DIS=GDIS+< OHU+HU V2£PftR: RETURN 

599 REH *## compute new h. velocity ### 

G80 IF H6=0 THEN RETURN 

6 1 HU<iHy+HEFF*H6*PttM1 : RETURN 

6:99 RED ### move ship ### 

-■00 x=lNTc BOSE+10+ODIS/HSC+0.5 ) 

710 V= I NTc HB-5-0HGT VSC+0 . 5 > 

72W UXOR 0: GOSUB 800 

730 X=INTC BflSE+10+DIS-'H9C+0. 5 ) 

748 IF X<5 OR X>154 THEN RETURN 

75ti V=INT< HB-5-HGT.-'SC:+0. 5 ) 

760 IF VK5 OR V>91 THEN RETURN 

778 COLOR: 2: GOSUB 800 

780 RETURN 

799 REl'l ### Plot ship ### 
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800 PLOT X-1,V-5:DRI*IT0 X+2.V-5 
818 PLOT X-2,V-4:DRftWTG X+2,V-4 
820 PLOT X-3,V-3:DRhWT0 X+3#V-3 
838 PLOT X,Y-2:DRftWTG X+3,V-2 
840 PLOT X,V-i:DRfiWTO X+3,V-1 
850 PLOT X-3,V-2:DR&WT0 X-3,V-1 
860 PLOT X-3,V:DRflWT0 X+3,V 
870 PLOT X-3,V+l:0RfiWTQ X+3,V+1 
888 PLOT X-4,V+5:PL0T X-5,V+5 
890 OR&WTO X-2,V+2:PL0T X+4,V+5 
300 PLOT X+5,V+5:DRHHT0 X+2,V+2 
910 RETURN 

999 REPI ### output values ### 

1000 POKE 656,0: POKE 657,11 
1010 ? C*iINT<UELSCl00V100; 

1020 POKE 657,29:? C**INT<FUEL*100 VI 08 

103O POKE 657,11:? C*#INT<H6T*i00 V180i 

1040 POKE 657,23:? C*iIN7< T I PIE* 100 t'180 

1050 POKE 657,11:? C*iINT<HU*100V100i 

1060 POKE 657,29:? C*i INK 1*1*100 VI 88 

1070 POKE 657*11:? C*iINT<DIS*188V180.S 

1080 POKE 657,29:? C*#8RS; 

1090 IF HG<0 THEN ? " <"i 

1100 IF HG>0 THEN ? " >" f 

1110 RETURN 

1193 REPI #** check position of ship ### 

1 200 X= I NK BHSE+ 1 0+D 1 S^HSC+0 . 5 ) 

1210 V=lNT<HB-5-H6VSC+0.5) 

1220 REPI * out Of range # 

1230 IF X<5 OR X>154 OR V<5 THEN 1400 

1240 REPI # beneath platform # 

1250 IF X<BHSE OR X>BftSE+20 THEN 1338 

1260 IF H6T<=0 THEN S*="Platf orm":60T0 1 

£80 

1270 IF UEL<0 OR QUEL>0 THEN 1330 

1288 INTl=0:lNT2=INT:EPS=1.0E-03 

1230 IF H6T<=8 THEN INT2=NLIL:60T0 1610 

1300 «DR=400: 60SU6 3100 

1310 PfiR=NUL:60SUB 308:H6T=FUN 

1320 IF H6T<=0 THEN INT2=NUL:60T0 1610 

1330 REPI * too low 
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1340 IF V>74 THEN S*="surfacC:eOT0 1880 

1358 REf'l # touching planet 

1360 LOCATE X-5,Y+5,C1 : LOCATE X+5,Y+5,C2 

1370 IF Cl=l OR C2=l THEN S*="surface":6 

OTO 1800 

1380 RETURN 

1399 REP) ##* out of range ### 

1408 ? "<ESC>C<2>3<tSC>C<CLEftR>3 

FLV1NG OUT OF RANGE" 

1410 ? " CGflUNICATIGNS LOST ! " 

1420 60SU8 700 

1430 SOUND 0,60,10,15:6OSUB 1500 

1440 SOUND 0,128,10,15:6OSU6 1508 

1450 SOUND 0,0,0,8 

1460 ? "<ESC>C=3 Try aoam ?"; 

1470 POKE 764,255: GET *2,X 

1488 IF X<>89 THEN 2230 

1498 POP :POP :60T0 3230 

1499 REH ### wait ##* 

1500 FOR M=l TO 70s NEXT Ms RETURN 
1599 REH »#* crash or land ? ### 
1608 INT1=0--INT2=INT 

1610 EPS=1.0E-03:ftDR=300:6OSU6 3100 
1620 PAR=NUL:6GSUB 400:UEL=FUN 
1630 TIHE=TIf1E+NUL 
1640 IF UEL<LANUEL THEN 1808 

1699 REfl ### land ! ! ### 

1700 GRAPHICS 0SSETCOLOR I»0#0sSETCOLOR 
2,11,7 

1710 ? "<ESOC< CLEAR >3<ESOC=3< ESC >C=J 
Vou are landed savely on ";PL$ 

1720 SUR=100:6OSUB 1768 

1730 ? "<ESC>C=3 No damage." 

1740 •? "<ESC>C=3 Vour mark for this lan 

ding:"; INK 5+UEL/2 >+5 

1758 GOSUB 2200: RETURN 

1768 ? "<ESC>C=3 Speed: " $INT<UEL*1©0 V 

T i me : » } INT< TI FE* 1 88 V 

Survived crew: ";SUR;" 
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188; :? 


" (tL^S. " 


1778 ? 


"<ESC>t=3 


188;:? 




1788 ? 


"<ESC>C=3 


v.* 





1790 RETURN 

1799 REfl #** crash ! ! #*# 

1808 GOSUB ?0H 

1810 IF X<5 THEN X=5 

1820 IF X>154 THEN X=154 

1830 IF V<5 THEN V=5 

1840 IF V>74 THEN V=74 

1850 FOR L=15 TO STEP -1 

I860 SOUND 0, 30, 9, L: SOUND 2,12O,0,L 

1870 SOUND 2,120,0,L:SOUNO 3,140,0,L 

1880 COLOR 0: GOSUB 2100 

1890 COLOR 2: GOSUB 2100 

1900 NEXT L 

1910 GRAPHICS 

1920 SETCOLOR 1,0,0:SETCOlOR 2,3,7 

1930 ? "<ESC>C<CLE«R>i<ESC>C=3<ESC)E=3 

You are crashed on the ";S$ 

1940 ? "<ESC)E=3 on planet ";PL$ 

1950 SUR=0:1F HBS<UELX30 THEN SUR=10O-I 

NKHBS<UEL>/0.3.) 

i960 GOSUB 1760 

1970 ? "<ESOL=3 Damage: "; 

1980 IF UEL<-15 THEN ? "un"; 

1990 ? "reparable. " 

2000 ? "<ESC>[=J Vou created a crater, 

depth: " ; INT< 1 . 56#HBS< UEL > V10; " A. " 

2010 GOSUB 2200: RETURN 

2100 FOR 1=0 TO 5 

2118 PLOT X-I,Y-l:PLOT X,V-I 

2120 PLOT X+l,V-l:PLOT X+I,V 

2130 PLOT X+I,V+I:PLOT X,V+I 

2140 PLOT X-I,V+I:PLOT X-I,V 

2150 NEXT I : RETURN 

2199 REfl ### again ? ### 

2200 ? "<ESC>C=3<ESl:>C=3<ESC:>C=J<ESl:>C=3 
Do you want ariother time ?"; 

2210 POKE 7'64,255:6ET #2,X 

2220 IF X=89 THEN RUN 

2238 POKE 82,2:6RflPHICS 8 

2240 END 

2299 REJ1 *#» choose planet *#* 
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2380 GRAPHICS 2JSETC0L0R 2,0,8 

2310 ? #6;"vgur mssicw is to" 

2320 ? #6; "LAND safely ON A PLANET." 

2330 ? #6; "VOU CAN FIRE FUEL TO"; 

2340 ? #6; "CONTROL THE LANDING." 

2350 ? #6; "0-3 VERTICAL AND" 

2360 ? #6;"< OR > HORIZONTAL." 

2370 ? *6:? #6; "WHICH PLANET ?»j 

2380 ? "0:RANDOf] l:ri£RCURIUS 2: MENUS 

U 

2390 ? "3: EARTH 4: TOON 5: OARS" 
2400 ? "6: JUPITER ?:SATURNUS 8:URANU 

2410 ? "3:NEPTUNUS Tf7*i 

2420 GET #2,PL:PL=PL-48 

2430 IF PL=0 THEN PL=INT< 9*RNCK 8>+l ) 

2440 FOR 1=1 TO PL 

2450 READ PL*,COLOR,O1,R8,F0,H0,EFF,HEFF 

2460 NEXT I 

2470 RETURN 

2439 REO ### planet data #*# 

2500 DATA nERCURIUS,l,3.2SE23,2.24E6,lS0 

,350,10000,500000 

2510 DATA UENUS,2,4.87E24,6.05E6,200,500 

,10000,500000 

2520 DATA EARTH,3,5.S7E24,e.37E6,200,680 

,10000,500000 

2530 DATA TOON,5,7.35E22,3.8E5,200,500,3 

0000,390000 

2540 DATA r)ARS,3,6.3SE23,3.4E6, 200, 500,1 

0000*500000 

255H DATA .JUPITER, 1 1 ,1.3E27,7. 14E? ,200,2 

500 , 20000 , 5000000 

2560 DATA SATURNUS,4,5.63E26,6E7,200,200 

, 1 0000 , 2000000 

2570 DATA URANUS, 0,8. ?2E25,2.6E7, 160,400 

,10000,1000000 

2588 DATA NEPTUNUS, 13, 1E26,2.42E7, 180,28 

0,1 0000 , 1 000000 

25SS REO #*# initialize I ### 

26O0 WGT=2500:SG=10:LANUEL=-10 

2618 C*=" <ESC.>C+3<ESC>C+3<ESC:.> 

t+JK ESC >L+3< ESOC+JK ESC >C+3< ESC >L+1< ESC > 
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C+3< ESC >C+ 1< ESC >C+D " 

2628 J=6 . 67E- 1 1 : Jf»=J*fl 1 

2630 RETURN 

2699 REP1 ### Plot planet ### 

2780 GRAPHICS 7:SETCGLGR 0,COLOR,6:SETCO 
LOR 1,10,7:SETCOLOR 2,1,8 

2710 BflSE= I NT< RNCK >* 1 30 )+5 

2^20 H=INT<RNEK0>*20>+59 

2730 COLOR l:Xl=0:X2=6fiSE-l:SOSU8 2836 

2740 C0L=2:HB=H:I=H:K=H+2 

2750 COLOR COL: PLOT EWSE+20,K 

2760 DRHNTO BOSE+20,I:DRflWTO BhSE,I 

2770 POSITION BflSE,K 

2780 POKE 765,COL:XIO 18,#6,0,0,"S: " 

2790 IF C0L=2 AND h<77 THEN C0L=lSl=H+3s 

K=79:60T0 2750 

2800 X1=BASE+21:X2=15S 

2810 COLOR l:60SUB 2830 

2820 RETURN 

2830 FOR I=X1 TO X2 

2840 PLOT I,H:DRflWTO 1,79 

2850 IF H>79 THEN H=78:60T0 2880 

2860 IF H<59 THEN H=60:6OTO 2880 

2870 H=H+ INK RNCK 0>*3>-l 

2880 NEXT I 

2890 RETURN 

2899 RED #t# initialize H ### 

2900 TIITE=0: INT=0. 5: GfiS=0: H8=0: FUEL=F0 
2910 UEL=0:OUEL=0:H6T=H0:OH6T=H0 
2920 R=R0+H6T:n=W6T+FUEL*SG 

2930 ? "<ESC>C<CLEftR>3 ***** "*PL*i 

*****" 
2940 ? "<ESC>C=3 LEUEL <1 OR 2>: ?"; 

2950 6ET #2,LEU:IF LEU<49 OR LEU>51 THEN 

2930 
2960 HU=SQRtJJt4=!>*<LEU=50>:OHU=HU 
2970 HSC=5*3QR<JIVR>,'160 
2980 DIS=-HSCt<BNSE+5>:0OIS=OIS 
2990 SC=H6TAHB-10> 
3000 POKE 82,0: POKE 752,1 
3010 ? "<ESC>C<CLEftR>3Speed <U. >1 
Fuel : " 
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3020 ? "Height : fitus 
3&30 ? "Speed <H. >: Weight 
3040 ? "Distance : Trottle 
3050 RETURN 

3099 REfl »*# root finder #*# 

3100 NUL=1E+S8 

3110 PftR=I NT 1: GOSUB HDR:FUN1=FUN 

3120 PflR=INT2: GOSUB HDR:FUN2=FUN 

3130 NULO=HUL 

3140 NU.=INT1-<INT1-INT2>*FUN1AFUN1-FUN 

2> 

3150 PBR=NUL: GOSUB HDR 

3160 IF fiBSCNUL-NULOXEPS THEN RETURN 

3170 IF FUN*FUN1<0 THEN I NT2=NUL : FUN2=FU 

N:i50T0 3130 

3180 INT1=NUL:FUN1=FUN:G0T0 3130 

3199 REM ##### «air. program ****# 

3200 GOSUB 2300:REH choose planet * 
3210 60SUB 2600: REfl initialize I # 
3220 GOSUB 2700: REH plot planet * 
3230 GOSUB 2900:REn initialize II # 
3240 GOSUB 700:R£H move ship # 
3250 GOSUB 100: RED input # 
3260 GOSUB 200:RE(1 computation * 
3270 GOSUB 1200: RED check pos. * 
32S0 GOSUB 1000: REfl output values # 
3290 GOTO 3240 
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At the Market 



Have you ever wandered through a market and been amazed at the speed with 
which the salesmen can add up a list of prices? Play this game with your family 
and find out how good a market trader you would make. 

You will see pairs of numbers of increasing length which you have to add 
up. You will soon find out that this isn't as easy as it sounds. To see why, 
consider the sum 

75856 
+ 37637 

Normally you would add the numbers in the right hand column first, then the 
column next to it, and so on. With the computer, however, you must enter the 
answer starting with the left hand column. It is this difference that makes the 
game so tricky. 
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How many numbers can you add correctly within the time limit of about 
one minute? Can you beat our record of eight? 



1@ RED #*##ff*##w ftt. Tf« Oarfcet. ##»#»###* 

2@ Din ft$< 15; 1 

30 tf=i:pOKE 1S#0!POKE 20*0 

4@ T i = I NT< RM3K >* i u-'-P ? 

5@ IF TKiW-'^H-l J THEN 48 

80 T2= I NIX HULK j$ l y-+t ) 

7'0 IF r2<10--<P-l > THEN 50 

80 ? :? Ti:? T2#" +" 

90 FOR B=0 TO fis PRINT "-";:NEXT B 

100 ? s? "ftisfljer :">: INPUT hnS 

110 IF HNS=T1+T2 THEN 14W 

120 ? "Ht^oriQj it- is : ">Tl+T2 

1 30 h=h- i : GOTO 1 40 

140 IF PEEK<28>+P£El«i3>*256<3880 THEN ft 

=ft+lsSOTQ 40 

150 T1=1NT< RND 1 ; »10^pi :>■ IF T 1<10"< ft-i ) T 

HEN 40 

lb0 "■' : 'i'' '"r'our score is : " tft 

165 ? "Job specification: " i 

170 FOR 1=1 TO ft:REftD R*!N£XT Is? ft* 

180 ? " T i «e : " s IMT< < PEEK/ 20 HPEEKX 1 3 >*2 

56 J ■■'0 . 6 V 1 00 * " se - onds " 

190 •"•• "Do uou want to pi ay again ";:INPU 

T fi*' 

200 IF ft*-;i J .l>="V" Then Run 

210 END 

220 UHTft fry 39am,SchoolK id^paper-boy^u 

ierfc J ,Huto dealer 

230 UHTft 6roKer,0 i rector, 1 i magna te, fl 1 1 

1 i ona i re , Nor id c damp i on 
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Fallout 



At the start of this simple but absorbing game you will see eight horizontal bars 
with gaps in them. Above the bars are eight checkers which can fall through the 
gaps. In this example 



© © © © © © 



checker 2 has already fallen into a gap. The object of the game is to get all 
eight checkers through the bars. You can do this by moving the bars to line up 
the gaps for the checkers to fall through. 

To move a particular bar enter a command of the form 



BDS 



where 



B is the number of the bar (the bars are numbered from 1 at the top to 8 
at the bottom) 
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D is the direction you wish to move it (L for left, R for right) and 

S is the number of steps the bar has to be shifted. 

For instance 

3R12 

moves bar 3, 12 steps to the right. This might sound like a very simple game 
but when you actually start playing it you will find that it provides quite a stiff 
test of your ability to think logically. 

10 Rtl'l ######### Fall o u t ######### 
20 DIP) G$U53 j,H*( 153J,HU*'; I?) 
30 DIl'l BL*< 1>*BPI*<1 >*K8;> 
40 POKE 752,1 
50 GOTO 800 

99 REfl ##* initialize ### 

100 BL*=" ":BH*="£' £" 

1 1 &=&L$: 6$< 1 7 ;'=BL*: 6*< 2 >=G* 

1 20 G$< 1 8 )=Bftr : 6*< 1 53 )=BH$ : S*< 1 9 >=&$(. 1 9 ) 

130 FOR V=l TO 8 

140 FOR 6=1 TO 4 

1 50 K= 1 NT< RNCK 6 >*1 7+ 1 > 

1 60 Gt< V* 1 7+X , V* 1 ?+X >= " " 

170 NEXT B 

1 80 I < V >=2t'i' : G$< 1 < V ),KV) >=S1 R*< V ; 

190 NEXT V 

200 RETURN 

299 Rtl'l ### draw screen ### 

380 H$=G* 

310 ? "<ESC>t<L:LEHK>J<tSC>t=JSC:ORE: 

TURN: " 
320 POSITION 18*15? S£; 
330 POSITION 26,1 :? TU; 
340 POSITION 2,5 
350 FOR B=0 TO 8 
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see ? &*" "#H*<B*i?+i#<B+i>*i?> 

370 NEXT B 

388 RETURN 

399 REN ### input- ##* 

480 POSITION 10 , 22!? 'SESCxSHIFTxBHCK 

S>ENT£R i'lOUE "; 

410 INPUT RO* 

420 RC=ftSC<; RO*< i ,i > J-4S 

430 IF RC<1 OR ROS THEN 400 

440 0I=<R0$<2,2>="R" ?-'■. R0*< 2,2>="L" ) 

450 IF 01=0 THEN 480 

460 T I =Uftl_< R0¥< 3 > > 

470 IF TK1 THEN 400 

480 RETURN 

499 REI'I ### -iroP checkers ### 

500 FOR B=l TO 8 

510 I=KB>:J=I+ir-':IF KB THEN 630 

520 IF H*<I,IJ=BL* OR H$t, 1 , i ?=Bti$ OR H*( 

J#J)OBL$ THEN 630 

530 I< 6 >=J: H*< J* J )=HK I j. I >!H*< I ..I J=BL$ 

535 P1I=INT<< 1-1 V17'>s(lJ=INT<<J-l Vi?> 

540 ni=INI\a-l Vl?>:PU=lNK< J-l VI'? > 
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55a POSITION 3+J-17*l v U,ru+5:? HJ-\J,.J>i 

see position 3+i-i?*oij.rti+5!? bl*j 

578 IF Jil'S? THEN 620 
syy SC=SC+Uffl-<H*< JpvD'J 

59@ I < B >=- 1 : H*t. J , J >=BL* 

600 POSITION 10,1s? SCi 

610 POSITION 3+J-i?*fi.J J ri.J+5:' 7 " Bi_$ 

620 B=8 

838 NEXT B 

640 RETURN 

633 REli ### sh i ft- bar ##» 

700 RO$=H*i i7*RC+l,l7*<RC+l J; 

710 IF 01=1 THEN H*<17#RC+i*17*RC+i;>=ftQ$ 

■: 17}:H*< i7:$:RC+2*17*.f fiC+1 > :-=R0$< 1,16)5601 

738 

720 H$( 1 ?#< RC+ 1 > r 1 7*< RC+ 1 .) 5=K0¥-: 1 j 1 > s H*< 

1 7T-RC+1 , 1 ?*< RC+l >-l >=RG*< 2 > 

730 POSITION 2.,5+RC:"'' RC>" "ifWX 1?*RC+1* 

l?«<RC+i ;v 

740 FOR B=l TO 8!R=INT<< KB>-1 >/l?) 

75« IF RCOR THEN 788 

760 IF KB>=ftC* 17+8*0 1+3 THEN 1 < 8 >=RC* 1 7 

-9*01+9 

770 KB:i=I<8J+0l 

788 NEST B 

790 RETURN 

793 REIT ##*#* main program ###*# 

888 GOSOB 1 80 : REI'i i n 1 1 i al i ze * 

810 GOSOB 308:REfi draw screen # 

.328 RC=1! GOSOB 588: REIT drop cht-CKers# 

838 GOSOB 4+10: REI'I input # 

840 FOR DU=1 TO TI 

850 GOSOB 788: REI'I ai i ft, bar # 

868 GOSOB 588: REI'i drop cheCKers # 

878 NT=NT+l: POSIT ION 26,1:? NTi 

888 NEXT DO 

830 IF SC<36 THEN 838 

900 SC=0: NT=8 

910 POSITION 2,22:^ "<ESC><SHIFT><BHCK S 

>Once more "; 

920 INPUT R0*:IF R0*< 1 # 1 X > U V THEN 6RHP 

HICS 0:END 
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938 ? *<ESCXSHIFTXBBCK S>Sa«*e Situatio 

n ";: INPUT Rus: 

948 IF R0*<1#1X>' , V* THEN Run 

95-y H*=6*sS0T0 810 

1499 HEl'l ##### mam prograsi ##### 

1500 GOSUB 100:REfl initialize # 
1518 80SU6 200: REH ara^ screen # 
1515 RC=i:8QSUB 308:REi'i 

1528 60SU8 600! REH input # 

1538 FOR 0U=1 TO TJ 

1548 GOSUB 400! REM shift 

1542 GOSUB 300! RER drop 

1558 NT=NT+l: POSIT ION 26, i:? NT; 

1568 ICXT DU 

1578 IF SC<36 THEN 528 

15S8 END 
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Ship's Attack 



First, let's describe this game as realistically as possible. In the lower half of the 
screen is a shape like this: 



Little squares fall down from the top of the screen. You must move the shape 
using the joystick or the cursor controls . 



and 



to stop the squares hitting it. If that sounds dull what about this . . . 

You are captain of one of the finest spaceships in the universe. As you 
cruise majestically through the Milky Way you can't help feeling proud of the 
magnificent vessel under your command. Then just as you are nearing the 
harbour and the end of your voyage is in sight, disaster strikes — 

A FLYING SAUCER ATTACK! 

How can you escape these unfriendly invaders from across the universe? Why 
not try your 

SUPER ATOMIC ESCAPE MOTOR? 

The more flying saucers you avoid, the more points you get. That sounds 
better, doesn't it? Anyway, the game is fast, simple and great fun to play, and 
that is all that matters. 
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IB REM ###*#### Ships'* fittacK #####*### 

20 Difi SH*<3)j.NS*t3>#faj*<l>*NB*U) 

30 OPEN ^*4j«#"K:" 

40 SOTO 500 

99 REI'I ### initialization ### 

1 m SH*= " G CKUUfc " : NS$= " " : BU?= " 1 11 " : NB 

$=•■ » 

110 Fti=0:GPL=S:PL=10:BV=23 
120 ? "<ESC>C<CLEflR>3<E£C>C=3Em«r level 
: "j: INPUT LE 

130 GRAPHICS 1?!P0KE 756,226 

140 SETCOLOR 0*0/0 

150 ? #6;" eSHIPSfi GBTTflCKG" 

160 POSITION PL- 1,23:? #6;SHS; 

178 RETURN 

188 REfl ##* move ship #»####*# 

£00 OPL=Pl:k=0 

£10 IF PEEK*; 764)0255 T'hEn GET #2,K 

220 PL=PL-K K=42 JK K=43 >K ST 1 CK< ;■='.'' X ST 

ICK<0>=11 ) 

230 IF PL=0PL (HEN RETURN 

240 POSITION 0PL-l,23:? #6iNS*; 

250 IF PL<1 THEN F'L=1 

260 IF PL>18 THEN Pl_=l8 

270 POSITION PL-1#23S"? »6iSH*i 

28u RETURN 

298 REPi #»# drop bullet ##» 

300 POSITION BX,6y:? #6;NBS; 

310 6V=BV+1+LE 

320 IF BV<23.5 THEN 390 

330 IF BBS<BX-PL»1 THEN 340 

335 FOR H=56 TO 250: SOUND O*W*0#l5!NEX1 

H : SOUND *0* , : ? " < ESC >E< CLEAR XJ< ESC >C= 

3VOU have ";PO-i;" points. ": END 

340 8X=PL+INT< < 3-LE >*< RNCK >*3-l > ) 

350 IF BX<1 THEN Bx=l 

360 IF BX>18 THEN Bx=l8 

370 BV=LE:P0=P0+1 

360 FOR w=100 TO 50 STEP -3:S0UNQ &*H*10 

,15: NEXT W: SOUND 0,0,0,0 

380 POSITION BX*BVS? #6; 60*; 

400 RETURN 
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499 REfl #»### mam program ##### 
5«tf GOSUB 1 W : REfl i n 1 1, i a 1 1 zax. i on # 
51a GOSUB 2m:REn move ship # 

526 GOSUB 3Ufci:REf'i drop tuilet. # 

536 GOTO 51 a 
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Mini Mancala 



MINI MANCALA is based on an old Arabian game. It is played by moving stones 
between cups. There are four cups: A and B are the computer's, and C and D 
are yours. At the start of the game there are two stones in each cup. 





A (computer) 



B (computer) 





C (you) 



D (you) 



In turn, the players take the stones from one of their own cups and distribute 
them counterclockwise to the other three cups, one stone per cup. For instance 
you might choose to move the stones from cup D like this: 



135 




A (computer) 




C (you) 





B (computer) 



anticlockwise 




D (you) 



After this move cup D is empty. In fact, there will always be at least one empty 
cup, because during each move stones cannot be put back into the cup from 
which they were taken. 

To win the game you must get all the stones into your own cups. 

On the computer, the cups are represented by squares with numbers on 
them indicating the number of stones they contain. You can choose the level of 
difficulty you prefer, 1, 2, or 3 (1 being the easiest), and who has the first 
move. The computer will ask which of your squares you wish to move the 
stones from and will tell you what its own move is. The position of the stones 
on the board is displayed after each move. 

You may be surprised that this complicated game can be described in such 
a short program. The diagram shows all the possible moves, and is an excellent 
example of how a strategic game can be represented schematically. 

This game was created by C. Freeling. 
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16 RED #########_ Piini-l'jaric -a i a ###»#»#»* 
20 Did f'K 1,1 >,U3,1 > 
30 OPEN #2*4,0, "K: " 
40 SOTO 700 

99 RBI ### irntiai.ze ### 

100 FOR 1=0 TO l 

116 (K8*D=2:IKi*l >-> 
120 FOR L=0 TO 3 
130 REHD s:L(UI)=X 
140 NEXT L 
150 NEXT 1 

160 ONTO 0,1,1,0,0,0,1,1 

170 RETURN 

199 REii ##* display beared ### 

200 GRAPHICS 18 

210 POSITION 4,0:? #t;;"miniLi'Qmancala" 

220 ? #6:? #6:? #6;" 6fl B8" 

230 ? #6;" H'! 62 6!G 26! 8" 

235 ? #6;" 6! Ml" 

240 ? #6;" ii'!G2 t'lli' 26(6" 

250 ? #6;" 6C Dfc" 

260 RETURN 

299 REI'I ### input ### 

300 POSITION 0,10 

310 ? #e^"enouE stones frlu-i cup <c,d> *e 

li . 

320 POKE 764,256: GET #2,X 

330 IF X=S7 HND FK1#0»0 THEN L=i:? #b;U 

HRS<X>: RETURN 

340 IF X=68 HNLi I'K 1,1 ;'.>0 THEN L=2:? #6iC 

HR*< X >: RETURN 

350 SOUND 0,20,10,15 

360 FOR T=l TO 180: NEXT T 

370 SOUND 0,H,0,0 

380 GOTO 300 

339 REd ### computer's turn ### 

408 POSITION 0,10:? #6; "now itfGJs my tu 

rnCP.3 

410 FUR N=W TO 500: NEXT H 

420 Q=FK O , U )* 1 000+f'K , 1)X 1 80+CK 1 , & >% 1 W+l'l 

< 1 , 1 > 

430 L=3 
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448 IF i'Ka.BXHJ HNG <L£U<3 RND KNCKU.^Lh 
U<8.4 OR fK8#l>=8 OR 8=1438 OR 0=1340 OR 

Q=6118 OR 0=1160) THbN L=8 
45ft POSITION 0*1@!? #6* "61 PIQUE STONES F 
ROri CUP 6"#CHR*<65+<L=3))i 
460 RETURN 

439 REPI ### spread stones *#* 
500 S=LX L »@ >! H=LX L* 1 ) 
510 IF fKG,H.J=8 THEN RETURN 
520 L=L+i:lF L>3 THEN L=L-4 
530 I=L<L,8>:J=L';L#1> 
540 iF 1=6 HNO 0=H THEN 520 
550 60SUB 608! GOTO 518 
593 REfl *## move one stone ##» 
688 PK 6*H )=fl< 6,H )-l : I'K 1 «J J=rl< I »J HI 
610 POSITION 7+4+H, 4+2*6s? #6*fKG»H> 
620 POSITION ?+4*J#4+2*l!? #G;n< I ,J > 
630 FOR H=l TO 280! NEXT H 
640 RETURN 

£39 REC1 ##### stain program ***** 
788 S0SU8 1O0:6OSUB 288 
710 ? #6:? #6:? #6j"EMTER LEUEL <1-3X? m 
728 GET $2,> ; ;:lEu=;«;-4S 
738 IF U&K1 OR LEU>3 THEN 720 
740 POSITION 8,10:? #6;"HH0 STARTS? VOO 
OR ('IE ?" 

750 GET #2,Xi IF *=89 THtN 798 
760 80SUB 30O:REii input * 

778 SOSUB 580: REM spread stones # 
780 IF nu.l>=S THEN POSITION 8*9! ? #6;" 
you hi in": GOTO 838 

798 80SUB 488:REfl computer's turn # 
888 G0SU6 588: RBI spread stones # 
818 IF IK8#8>=8 THEN POSITION 8,3:' #6i" 
I ui in": GOTO 838 
628 GOTO 768 
838 ? #6; "00 VOL) WHNl TO PLHV NGHlN ? 

848 POKE 764,255: GET #2 J .>=;: IF X=8S THEN R 
UN 

858 END 
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Stop It! 



Although this is only a short program it gives rise to a fast and exciting game. 
The screen looks like this 



H 




The square on the left has a letter on it. When it moves across the screen you 
must try and stop it in the region bearing the same letter by pressing any key. 
At the start of the game the computer requests a level of difficulty (1 is the 
easiest, 2 is harder and 3 is the most difficult) and asks you how many times 
you want to play. You'll be shown your score at the end, for instance 

Your score is out of 10 (0%) 

Never mind, better luck next time! 
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18 REl'l ######### S X, Q P 1 t ######### 

20 D I fl UUfi. 1 ;■ 

30 '<■ "<£SC>ta:LEHR>J<E£C.;C; = >Jtnter_ieve' 

I of d i f f i cul ty >: l -3 ;■:";: I NPul D 1 : 1 =25- 

6*0 1 

48 ? "<£SC>L<=>JEni,er number of turns. :" 

;: INPUT NT 

50 6RWPHICS lSsSOSUB && 

60 SETOOLOR 8,4,6 _ 

70 SETOOLOR 1,8, IS 

88 SETC0L0R 2,12,18 

98 POSITION 11,8:? #6* "eCaCbCcCdS" 

188 FOR RO=l TO 11 

118 POSITION ll,RO:? #6i"0L t C tfi" 

128 NEXT RO 

138 TU=T0+1 

1 4gi C0= I NT< RND< 8 >*4 .) : BU*=CHR3K 00+65+32 .> 

158 R0=l+2*lNkfiND': 8;'*6.:' 

155 POKE 764*255 

168 FOR C=8 TO 18 

170 POSIT ION CRO:? #6," " ;BU$j 

188 FOR DE=1 TO DTsNEXT DE 

190 IF PEEK< 764 X >255 OR PTRI6< 1 >=0 OR S 

TRI6<0)=0 THEN C=C+lJ<3QTQ 218 

288 NEXT C 

218 POSITION CRQ:? #6;" "; 

215 POSITION ll,RO:? #e,"GL £ ill C6" 

£28 IF CO 12+2*00 THEN T=288:GOSoe 588 :G 

OTO 258 

238 T=20:GOSUB 580:HI=HI+1 

248 POSITION 8,0:? #6;HI; 

258 IF TLKNT THEN 130 

260 GRAPHICS 8: POSIT I UN 5,5 

278 t "your score is ";Hl;" out of "iNT* 

" <. u ilHT<Hl/HTtl&&>i'"4>" 

288 END 

588 SOUND U,T,10,15 

518 FOR DE=1 TO 5*0T:NEX! DE 
528 SOUND 8,0,0,0 
530 RETURN 

589 REIT ### change characterset, ### 
600 TOP=PEEK< 10b.:-y 
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618 POKE 204#TOP:POKE 286,224 

628 FOR: X=1536 TO 1555 

638 READ U:POKE X,U 

648 NEXT X 

658 Q=USR< 1536 ) 

668 DHTH 1 84 , 1 62 , 4 , 1 68 , 8 , 1 77 , 285 , 1 45 , 28-2 

, 288 , 288 * 243 , 238 , 286 , 238 , 284 , 282 , 288 , 242 

,96 

678 RHplSET=T0P*25e 

688 FOR X=RHf'ISET+59£8 TO KH(1SET+59*8+7 

698 POKE X,255 

788 NEXT X 

718 POKE 756, TOP 

728 RETURN 
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The Swedish Popsong 

A theme con variatone is a tune that, although it is based on one that has been 
heard before, has its own mood and identity. This game could be considered as 
a theme con variatone as it has some similarities with another game in this 
book, but presents its own unique challenge to the solver. 

You will see 16 fields filled with a random arrangement of As and Bs e.g. 



B 


A 


B 


A 


A 


A 


A 


B 


A 


B 


A 


B 


B 


B 


A 


B 



When you indicate one of the fields (enter ROW and COLUMN) all the letters 
on the horizontal and vertical rows through that field will be altered so that all 
the As become Bs and vice versa. Your aim is to end up with a screen which 
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looks like this: 



A 


B 


B 


A 


A 


B 


B 


A 


A 


B 


B 


A 


A 


B 


B 


A 



10 REf'l #####* BaBa ##*### 

20 01 ft B<4*4) 

38 SRfiPHlCS IS 

40 OPEN #2#4*&#"K! " 

50 SOTO 500 

99 REf'l ### initialize #*# 

100 FOR R=l TO 4 
110 FOR C=l TO 4 
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1 28 B< R , C >= I NT < 2*RnLk is :> :> 

130 NEXT C 

140 NEXT R 

150 ':- #6;" gthe Swedish popsonQli'" 

lfcy POSITION 8,2:? #6* "1234" 

l,y POSITION 9,3:? #6iCHR*<i59) 

180 RE 1 URN 

199 REl'l #»* draw screen ### 

£00 FOR R=l TO 4 

£10 POSITION 6#3+R5? #6;R;" "; 

220 FOR C=l Til 4 

£30 IF 6<R,C.> THEN ? #&;"&" i ■ SOTO £50 

240 ? #8i"a*j 

£50 NEXT C 

£B0 NEXT R 

£70 RETURN 

233 REIT *## 'Set, i nput, and flip ### 

300 POSITION £,9:? #6; "from P" 

310 GET #2,R:R=K-4S 

320 IF R<1 OR R>4 THEN 300 

330 FOR 0=1 TO 4 

340 KR*C>= NOT B<R,C) 

350 NEXT C 

360 POSITION 2,3:? #6i"ecolumnt"' 

3?'0 GET #2,C:C=C-48 

3S0 IF C<1 OR C>4 THEN 360 

330 B<R*C>= NOT B<R,C'.> 

400 FOR R=l TO 4 

410 B<R,C>= NOT B<R,C) 

420 NEXT R 

430 RETURN 

433 REl'l ##### <nain program ##### 

500 OOSUB 100:REfl initialize # 

510 60SUB 20O: REn draw screen # 

520 60SUB 300: RED >npLrt & UJrn # 

530 GOTO 510 
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Vowels and Consonants 

This competition game can be played by the whole family. Unlike most other 
computer games, it does not involve numbers or arithmetic. At the start of the 
game enter the number of players, and then take turns to play. The computer 
will give you seven letters: when it asks you 

Vowel or Consonant (V,Q? 

enter V for a vowel or C for a consonant. When you have your seven letters the 
computer challenges you to make as long a word as possible out of them, using 
each letter once only. There is a time limit, shown on a clock on the screen. It 
is amazing how addictive a simple game like this can become. Try it and see! 

10 REfl ##### Uowels fin<a consonants ##### 

20 OPEN #2,4,8, "k: " 

3W ? 'H ESC >L< CLEAR >3< ESC .^C^/JNumber of 

Players :";: INPUT NP 

48 DlCI P0< NP },CHS$< 21 j r CH$K 1 >,LE*'; 7 ) 

56 FOR P=l TO NP:PO<P>=0:nEXI P 

60 80T0 900 

99 REl'l ### Initialize screen ### 

100 GRAPHICS 18 

1 10 ? #6; "PLR. : " : ? #6; "PTS. : " 

120 FOR P=l TO NP 

130 POSITION 4+3£P,0:''- #6;P 

140 POSITION 3+3#P*i 

150 IF PCKPX10 THEN ? #6#" "; 

ISO Y #S;POf. P.) 

170 NEXT P 

180 POSITION 0,3:? #6,-"ujrn of piaye-rLZa 

"iCHR*CPL+lK;j 
190 POSITION 0,5: ? ftF^'iivouiel or consona 
nt LHlvLLlc £ 1 3£ " ; CHR $(. 1 59 > i 
200 POSITION 0,11 
210 ? *S;"G:tirae leftLZJ sectN3G"j 
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33y 

400 

410 
420 
430 
440 
458 



470 
480 
490 
500 

510 
520 
599 

600 



8,11:? #6;"ti 
0,250, 10, 15: P 



### 



220 POKE 28,0: POKE 1 9,0: POKE 18,8 

238 RETURN 

299 REM *## ClOCK ### 

308 TI=<PEEK< 18;*65536+PEEKC 19>*256+PEEK 

< 28 > >y'6H 

310 POSITION 11,11 

328 ? #S#60-INT<TI*18V10 

338 IF TI>68 THEN POSITION 

me- is up! pts, ";: SOUND 

OP : RETURN 

340 RETURN 

REf'l ### choose characters 

FOR DU=1 TO ? 

SOSUB 308 

IF PEEK<? , e4:)=255 THEN 418 

SET #2, IN 

Ih IN=86 THEN CHSS^'HEIGU^GGTO 478 

IF IN=67 THEN CHS*="BCDFGHJKLPINF'i3RST 
UWXV2":GGT0 478 
488 GOTO 418 

I N= I NT< RNCK 8 )*LEN<; CHS* >+ 1 > 

LE$< DU >=CHS$<; I N , I N > 

POSITION 5+2*DLl,G 

? #6iCHP^(HSC(LE*<;DU);'+32.> 

NEXT DU 

RETURN 

REPI ### input word ### 

lE=w 
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61 a 60SLIB -300 

620 IF PEEK<764>=255 THEN 610 

633 GET #2, IN 

640 IF IN=155 THEN RETURN 

650 IF IN=126 AND LE>8 THEN POSITION LE- 

U8:? #6;" "*:LE=t£-l:GOTO 618 

660 IF IN<6S OR IN>98 THEN 610 

670 LE=LE+ 1 : CHS*! LE >=CHR*<; I N > 

680 POSITION L_E-1*8:? #6*CHR*< IN+168) 

6S0 SOTO 610 

699 KEf't ### compute points ### 

700 IF LE=0 OR TI>60 THEN RETURN 
710 FOR CO=l TO LE 

720 FOR C=l TO 7 

?38 IF OHS$<CO*CO>=LE*<C*C;> THEN Lt*<C*C 

)="<ESC><BNCK S>80T0 ?80" 

740 NEXT C 

750 POSITION 0*3: SOUND 0,200,10*15 

788 ? #6; "wrong letters used CN3" 

770 RETURN 

780 NEXT CO 

790 PO< PL >=F'0< PL >+LE 

800 POSITION 8*9 

818 IF LE<7 THEN ? #6i H 9oodi;0 "j: SOUND 

* 30 * 1 * 1 5 : 60 1 830 

S20 ? #€:*"cccelentoa "*:SOUND 0*18*10*1 

838 ? fft:*CHR*<LE+16>*" PomtsCNH" 

840 RETURN 

899 REI'l ##### mam program ##### 

980 FOR PL=1 TO NP 

910 SOSUB 180: REP) initialize screen # 

928 SOSUB 400! RBI choose characters # 

930 POSITION 0*5 

940 ? #S*"iiflHKE H WORD OUT OF THESES"* 

950 SOSUB 680! REH input word # 

968 SOSUB 708: FECI compute points # 

978 FOR N=l TO 508:NEXJ H 

988 SOUND 0*0*0*8 

988 NEXT PL 

1800 60T0 988 
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Astrology 



This program is based on a study made by the Dutch physicist and astrologer 
Dr. Ir. J. Van Slooten. He was a research worker at Philips laboratories who 
spent all his free time on astrology. He developed a theory that the phase of the 
moon at the time of birth was a very important astrological influence on a 
person's character. After studying the lives of hundreds of people he con- 
cluded, "... that the moon phase forecasts the extent to which the spiritual 
and emotional life, especially with respect to a person's social environment, will 
develop and furthermore the role he or she will play in our society ..." 

The diagram shows the cycle of the moon's phases. As there are three phases, 
waxing, full, and waning, so three types of person can be defined. 



Individualists: born in the waxing moon phase, they have waxing energy. They 
like to work on their own, have strong wills, and are not discouraged by 
physical discomfort 

Socialists: born in the full moon phase, they like to live in communities. Key 
words for these people are 'compare', 'choose' and 'combine'. 
Cooperation is a dominant factor but there is also rivalry and envy 

Conservatives: born in the waning moon phase, they know that the light de- 
creases but will return again. They are careful and sure of themselves, and 
like to have everything under control 

These three types can be further subdivided to give twelve categories in all: 
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Pioneers are searchers, always ahead of the crowd. Their strength of purpose 
can sometimes make them appear stubborn 

«-§■ 

Coordinators like to be with other people, but feel that they are'more equal' 
than their companions. They are romantic and strongly attracted to 
family life 



o 



Realists look at the world in a very down-to-earth manner. They like to think 
that everything can be explained in purely physical terms 



m 



Spiritualists are rather 'other worldly' characters. Philosophical in outlook, 
they are seekers after the unknown 



<©> 



Artists transform material in a creative manner. They can produce works of 
art, new products, or anything that did not exist before 
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Apostles are not themselves creative but spread the ideas of others to the world 
at large 



D 



Helpers take on responsibilities to their fellows that might otherwise be ig- 
nored. They are helpful and caring to others 




Leaders also assume responsibilities but in this case for directing the lives and 
actions of others. They look forward where most people would prefer to 
look back 







Knights are fearless adventurers, always searching for new things to explore. 
Idealistic in outlook, they have a strong sense of honor 



ft 
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Arbiters like to preside over the actions of others, they do not prejudge issues, 
but when they reach a decision they expect it to be obeyed 



S"& 



Revolutionaries are dissatisfied with the world as it is. They tend to look on the 
bad side of things, and have a desire to change the world 



fr 



Prophets consider the world 'from above' bringing to bear the wisdom of the 
past. They may not always be listened to, of course 



o 



The program will tell you the phase of the moon on the day you were born. 
From this you can discover the secrets of your character! 
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10 REIT ###### rioonphase Astrology ###### 

20 GRAPHICS 18 

30 OPEN #2,4*0, "K: * 

4t3 GOTO 5O0 

99 REfl ### read data ### 

100 NUIT=0 

110 GET #2,?<:? #6,CHR*<X>, 

120 IF K=155 THEN RETURN 

1 30 NUf l=NUri* 1 0+< X-48 > 

140 GOTO 110 

193 REfl ### INPUT DftTfi ### 

200 ? #6;" £Zt moonphase ttil" i 

210 POSITION 5,2:? #6, "ENTER DATE " 

220 POSITION 0,4:? #6,"DAV DO? "; 

230 GOSUB 100:DD=NL91 

240 ? #6,"flONTH m? "i 

250 GOSUB 100:i'!=NUf'l 

260 ? #6, "YEAR WW? ", 

270 GOSUB 100:V=NU!1 

280 IF PK3 THEN l y N'l+12: V=V-1 

290 RETURN 

299 REfl ### calculation ### 

300 T=1MT<365.25*V >+INk30.6#<fHl » 
310 T=< T+DD-634038 X'36525 

320 LA=350. 7374:56+ 1236£T*360+307*T 
330 LC)=LH+6*T^60+51. lS*T^3e0W 
340 LA=LA-5. 1 7*TtT ■'■3600 
350 LA=LA- 1 NT< UV360 >*360 
360 LA= I NT< LH+0 . 5 ) 
370 RETURN 

399 REIT ### display result ### 

400 POSITION 0,8 

410 ? *6,"roONPHHSE = ",I_A," DEG. " 

420 RETURN 

430 NUfNNUtl* 1 0+< X-48 > 

440 GOTO 410 

499 REI'I ##### main program ##### 

560 GOSUB 200: REIT input data # 

510 GOSUB 300: RE(") calculation # 

520 GOSUB 400: REI'I display result # 

530 GET #2,X:RUN 
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Does your brain get enough exercise? Are your wits as sharp, or your 
reactions as quick, as they should be? Tone up the muscles of your 
mind with this enthralling collection of arcade and action games, 
puzzles, brainteasers and competitions for your microcomputer. 

Battle with GALACTIC MONSTERS and ZOMBIES IN THE SWAMP, 
defend yourself against a SHIP'S ATTACK, and set out on a 
nerve-jangling SHARK HUNT. 

If you survive all that you can gamble at LAS VEGAS A GO GO 
and the KENTUCKY DERBY, plumb the mysteries of the BLACK BOX, 
and stretch your mind with intriguing board games like ONE TO FIVE, 
SHAKESPEARIAN SHUFFLE, and MINI MANCALA. Then.test your 
intellectual capabilities with VOWELS AND CONSONANTS, 
KEYBOARD MEMORY, and AT THE MARKET. Will you turn out to be 
a GENIUS AT WORK? 

By now you'll be razor sharp and ready for anything, which is just 
as well because you are not even halfway through yetl There's even 
more excitement, skill and fun for you, your family, and friends. So test 
your reflexes and mental prowess on this extraordinary obstacle course. 

What are you waiting for . . . on your marks, get set . . . GOI 
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